1:
2:
3:
4:
5:

procedure TForm1.DateTime(Sender: TObject);
begin
   DateTimePicker1.Date := now;
   filltextgrid
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.SaveClick(Sender: TObject);
var Datei:TStringlist;
var Zeile:String;
begin
{hiermit wird eine Stringlist erstellt}
  Datei:=TStringlist.Create;
 {hiermit wird die VAR Zeile erstellt und mit einem zusammengesetzten String
befüllt}
  Zeile:=DateToStr(DateTimePicker1.Date) + '=' + ComboBox1.Text + ',' +
  ComboBox2.Text + ',' + ComboBox3.Text + ',' + ComboBox4.Text;
{hiermit wird die aktuelle Datei aufgerufen und an das Ende der Datei die
nächste Zeile eingefügt}
  If FileExists(ExtractFilePath(Application.ExeName)+'arbeitszeit.txt') then
  Datei.LoadFromFile(ExtractFilePath(Application.ExeName)+'arbeitszeit.txt');
{hiermit wird die oben gefüllte VAR Zeile an die Stringlist übergeben}
  Datei.Values[DateToStr(DateTimePicker1.Date)]:= ComboBox1.Text + ',' +
  ComboBox2.Text + ',' + ComboBox3.Text + ',' + ComboBox4.Text;
{hiermit wird die VAR Datei, die die Stringlist enthält in einen Datei
geschrieben. Um den Ablageort mitzugeben, liest man über den Wert:
ExtractFilePath(Application.ExeName) aus und verknüpft diesen Wert mit dem
Dateinamen}
  Datei.SaveToFile(ExtractFilePath(Application.ExeName)+'arbeitszeit.txt');
{ganz wichtig, mit Datei.Free wird der Speicher anschließend wieder freigegeben}
  Datei.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button2Click(Sender: TObject);
var
  DOW : String;
begin
  case DayOfWeek(DateTimePicker1.Date) of
    7 : DOW := 'SA';
    1 : DOW := 'SO';
    2 : DOW := 'MO';
    3 : DOW := 'DI';
    4 : DOW := 'MI';
    5 : DOW := 'DO';
    6 : DOW := 'FR';
  end;
  ShowMessage(dow);
end;