Problem mit StringGrid-Schleife

[Fussel9]

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?

[Wolfgang Mix]

Die erste Zelle oben links hat die Koordinaten [0,0]

[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

[Wolfgang Mix]

Falls das ein Kalender werden soll, fehlt Die jetzt noch FirstDayOfMonth aus den
DateUtils2

Grüß

Wolfgang

[Fussel9]

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

[Wolfgang Mix]

Okay, aber der 1, des Monats sollte an der richtigen X_Position stehen

[Edit] Div teilt ganze Zahlen, das Ergebnis ist wieder ganz.
Mod ist der ganzzahlige Rest einer Division. Steht aber auch in der OH [/Edit]

Gruß

Wolfgang

[Fussel9]

Womit mein problem noch immer nicht gelößt ist... siehe ganz oben...

ps:Ich habe vor die beschriftung Montag dienstag ect. passend zu verschieben...

[Wolfgang Mix]

Montag ist in jedem Kalender immer oben links. Wo ist das Problem?

[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

[Fussel9]

Dankeschön ;)