Stringgrid Spalten einzeln summiere

[akazukilp]

Zitat von hoika:

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;