TStringgrid zählt nur bis 10

[hoika]

Hallo,
beschäftige dich mal mit F5, F7 und F8.
Dazu gibt es in Google schöne Videos.

[akazukilp]

Zitat von hoika:

Hallo,
beschäftige dich mal mit F5, F7 und F8.
Dazu gibt es in Google schöne Videos.

Debugen? Gut veruch ich mal

[akazukilp]

Hm klappt immer noch nicht.
kann mir jemand einen Hint geben was genau ich falsch mache

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, J, z : Integer;
begin
  z := 751;
    with StringGrid1 do
    begin

      for i := 1 downto Stringgrid1.Rowcount -1 do
         for J := 1 downto Stringgrid1.ColCount -1 do

          begin
            z := (z)-1;
            Stringgrid1.Cells[J, i] := IntToStr(z);
          end;
    end;
end;

[bcvs]

Zitat:

for i := 1 downto Stringgrid1.Rowcount -1 do

Anders rum natürlich. Schau dir Post #12 nochmal genau an. Von 1 kannst du nicht mehr weit runterzählen.

Mit dem Debugger und F8 hättest du das sofort gefunden.

[hoika]

Hallo,
Debuggen. Ja.
F5 auf die z:= 751-Zeile.

Dann mit F8 loslegen.
Deine .-Cells-Zele wird wahrscheinlich nie angesprungen.

[akazukilp]

Zitat von hoika:

Hallo,
Debuggen. Ja.
F5 auf die z:= 751-Zeile.

Dann mit F8 loslegen.
Deine .-Cells-Zele wird wahrscheinlich nie angesprungen.

ja danke. hab gesehen wo das Problem liegt. Er Springt auch auf die Zelle 0 drauf. Kann man das irgendwie umgehen mit einer property?

[scrat1979]

Zitat von akazukilp:

Zitat von hoika:

Hallo,
Debuggen. Ja.
F5 auf die z:= 751-Zeile.

Dann mit F8 loslegen.
Deine .-Cells-Zele wird wahrscheinlich nie angesprungen.

ja danke. hab gesehen wo das Problem liegt. Er Springt auch auf die Zelle 0 drauf. Kann man das irgendwie umgehen mit einer property?

Kommt darauf an wie du zählst. Also in der Schleife entweder erst ab 1 bzw. beim rückwärts zählen statt zur 0 eben nur bis zur 1 zählen...