Im Striggrid zellen und Spalten addieren

[Natcree]

Ich habe es so versucht. klappt ganz gut. hat jemand noch einen Vorschlag ???

Delphi-Quellcode:

var
i: integer;
Summe1,Summe2,Ergebnis: double;
begin
  Summe1 := 0;
  for i := 1 to form1.eltreeStringGrid1.RowCount - 1 do
  begin
  Summe1   := strtofloatdef(form1.eltreestringgrid1.cells[2,i],0) + strtofloatdef(form1.eltreestringgrid1.cells[3,i],0);
  Summe2   := strtofloatdef(form1.eltreestringgrid1.cells[4,i],0) + strtofloatdef(form1.eltreestringgrid1.cells[4,i-1],0);
  Ergebnis := Summe1 + Summe2;
  form1.eltreestringgrid1.cells[4,i] := Floattostr(ergebnis);
  end;