Problem mit StringGrid-Schleife

[patti]

Wenn du auf div und mod verzichten und die Schleife so wie oben aufbauen willst, dann musst du folgendes machen:

Delphi-Quellcode:

row   := 1;
count := 0;
//
for i := 1 to DaysInMonth(date) do 
begin 
   if count = 7 then 
   begin 
     count := 0; // <-- erst Koordinaten setzen
     inc(row);
     Kalender.Cells[count,row] := IntToStr(i); //<-- dann schreiben
     inc(count); //<-- und count noch erhöhen
   end 
   else 
   begin 
     Kalender.Cells[count,row] := IntToStr(i); 
     inc(count); 
   end; 
end;

mfg