TStringgrid zählt nur bis 10

[akazukilp]

Zitat von mmw:

Halllo,

Zitat:

Also ich starte von unten und gehe nach oben

die for Schleifen sagen aber was anderes.

das hier ist ganz nüztlich

https://www.delphi-treff.de/object-pascal/schleifen/

Gruß

Danke das Problem mit dem runterzählen hab ich jetzt gelöst.
Aber ich find den Fehler nicht warum mir nichts reingeschrieben wird wen ich den Knopf drücke

Code:

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

      for i := 750 downto 1 do
         for J := 750 downto 1do

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

            end;
          end;
    end;
end;

[scrat1979]

Stelle doch das Projekt mal als zip rein dann können wir es uns anschauen.

Du scheinst wieder was falsch gemacht zu haben. Vermutlich musst du von 749 bis 0 runterzählen. Außerdem gehen deine beiden Schleifen jetzt von 750 aus...

[mmw]

hallo,

Die 750 können nicht stimmen. Lieber so machen.

Delphi-Quellcode:

for i := StringGrid1.RowCount-1 downto 0 do
 for J := StringGrid1.ColCount-1 downto 0 do

Gruß

[himitsu]

Zitat von akazukilp:

Aber ich find den Fehler nicht warum mir nichts reingeschrieben wird wen ich den Knopf drücke

Antwort #2 schon gelesen?

[akazukilp]

Zitat von himitsu:

Zitat von akazukilp:

Aber ich find den Fehler nicht warum mir nichts reingeschrieben wird wen ich den Knopf drücke

Antwort #2 schon gelesen?

Ja habe ich. Aber mein Problem ist ein neues. Ich hab meine Fehler mit dem Button, dass ich wenn ich auf den Button klicke, dass ganze sich umdrehen soll, also dass oben 750 und unten 1 stehen soll, aber er zählt von -86 zu 672.

[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.