Wen ichs jetz mal so mache wie ichs hab, da ich von mod und div noch nie was gehört habe...
sollte ich vielleicht mal die komplette prozedur einfügen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
count: Integer;
row: Integer;
begin
row:=1;
count:=0;
Tage:=DaysInMonth(date);
MessageDlg('Willkommen heute ist der '+DateToStr(date)+' dieser Monat hat '+IntToStr(DaysInMonth(date))+' Tage!',mtInformation,[mbOk],0);
for i := 1 to DaysInMonth(date) do
begin
if count = 7 then
begin
Kalender.Cells[count,row]:=IntToStr(i);
inc(row);
count:=0;
end
else
begin
Kalender.Cells[count,row]:=IntToStr(i);
inc(count);
end;
end;
@Wolfgang: Ich fange absichtlich in der zweiten reihe an damit oben Montag...Dienstag ect. stehen kann