Okay =)
Also das daunten ist meine bis jetzige arbeit!
Wie man sieht sind die Datumsverläufe da aber die Zellengröße stimmt nicht!
Außerdem fehlen die Tage also Montag Dienstag etc unter dem Datum!
Delphi-Quellcode:
procedure TForm1.StringGrid1Enter(Sender: TObject);
var
i, z: Integer;
tmpDatum: TDate;
Tag: String;
begin
tmpDatum := StrToDate('01.01.' + FormatDateTime('yyyy', now));
for i:=1 to 365 do
StringGrid1.Refresh;
for i:=1 to 365 do
begin
for z:=1 to 365 do
begin
if z = i then
break;
tmpDatum:= tmpDatum + 1;
end;
StringGrid1.Cells[i, 0]:= FormatDateTime('dd.mm', tmpDatum);
tmpDatum := StrToDate('01.01.' + FormatDateTime('yyyy', now));
StringGrid1.ColWidths[i] := 30;
end;
StringGrid1.Cells[0,0] := 'Datum';
StringGrid1.Cells[0,1] := 'Wochentag';
StringGrid1.Cells[0,2] := 'LKW 1';
StringGrid1.Cells[0,3] := 'LKW 2';
StringGrid1.Cells[0,4] := 'LKW 3';
end;
Ich muss sagen ich hab das da oben geschrieben kann es mir aber auch net erklären wieso es funktioniert
habe es meist aus foren und anderen Einträgen zusammen gebaut!
Also wenn mir einer erklären kann was genau die Zeilen bewirken dann wäre das sehr nett!
Ich will das Programm ja nicht nur schreiben sondern auch verstehen!
Vielen Dank!