TStringgrid zählt nur bis 10

[akazukilp]

Ok danke das klappt jetzt soweit.
Wen ich das jetzt rückwärts machen will.
Also ich starte von unten und gehe nach oben funktioniert es nicht was mach ich falsch.

Code:

procedure TForm1.Button1Click(Sender: TObject);
 var
  i, j, z: Integer;
begin

 z := 750;

  with StringGrid1 do
  begin
    for i := 750 to StringGrid1.RowCount - 1 do
      for j := 750 to stringgrid1.ColCount - 1 do

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

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

[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