Hallo,
var
i, ilZeile : integer;
Das ist zu wenig Code.
Wann wird diese ominöse Methode aufgerufen?
Hi,
Sie wird jeztz noch durch eine Button1click procedur ausgeführt.
wird später aber bei erstellen der Form eingesetzt.
Code:
procedure TForm1.Button3Click(Sender: TObject);
var
i, ilZeile : integer;
Summe : double;
begin
Summe := 0;
ilZeile := Stringgrid1.RowCount;
for i:= StringGrid1.RowCount to StringGrid1.RowCount-1 do // Ab hier überspringt er alles
begin
Summe := Summe+ StrtoFloatdef(Stringgrid1.Cells[1,i],0);
end;
Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1; //Ab hier überspringt er alles
Stringgrid1.Cells[1, ilZeile] := FloattoStr(Summe);
end;