Problem mit StringGrid-Schleife

[patti]

Einfacher geht es so:

Delphi-Quellcode:

for i := 0 to DaysInMonth(Now) - 1 do
  StringGrid1.Cells[i mod 7, i div 7] := IntToStr(i+1);

mfg
Patti