Einzelnen Beitrag anzeigen

akazukilp

Registriert seit: 3. Sep 2020
17 Beiträge
 
#18

AW: TStringgrid zählt nur bis 10

  Alt 17. Okt 2020, 18:41
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;
  Mit Zitat antworten Zitat