Txt in Listview Laden

[Natcree]

Könnte der Code richtig sein

Delphi-Quellcode:

procedure TForm1.DisplayData;
 var
   Gesamt: double;
   i,j: integer;

 begin
   Gesamt := 0;
   for i:= 0 to SGObjects.RowCount-1 do
   Begin
   sgobjects.Rows[i].BeginUpdate;
   try
     SGObjects.Rows[i].clear;
     for j := 0 to FObjects.Count - 1 do
     begin
      FGesamt := TIrgendwas(FObjects[j]).Summe;
      sgObjects.Cells[1, sgObjects.Row] := (TIrgendwas(FObjects[j]).ErsteZahlAsString + ' €');
      sgObjects.Cells[2, sgObjects.Row] := (TIrgendwas(FObjects[j]).ZweiteZahlAsString + ' €');
      sgObjects.Cells[3, sgObjects.Row] := Format('%.2n €', [FGesamt]);
end;
finally
Sgobjects.rows[i].EndUpdate;
end;
end;
sgObjects.RowCount := sgObjects.RowCount + 1;
sgObjects.Row := sgObjects.Row + 1;
end;