Hi hab lange nachgedacht.. sehs aber einfach nicht:
Delphi-Quellcode:
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;
Will mit dieser Schleife ein String Grid befüllen allerding sieht das resultat wie folgt aus:
1 2 3 4 5 6 7
9 10 11 12 13 14 15
17 18 19 20 21 22 23
25 26 27 28 29 30 31
Er überspringt also die 8, 16 und 24
sieht jemand wieso?