Txt in Listview Laden

[Natcree]

Kann mann diese Geschichte nicht auf ein Stringgrid1 umschreiben ???

Delphi-Quellcode:

procedure TForm1.DisplayData;
var
  Gesamt: double;
  i: integer;
  Item: TListItem;
begin
  Gesamt := 0;
  Kassenbuch.Items.BeginUpdate;
  try
    Kassenbuch.Items.Clear;
    for i := 0 to FObjects.Count - 1 do
      begin
        Item := Kassenbuch.Items.Add;
        item.Caption :=(Tirgendwas(FObjects[i]).DatumAsString);
        Item.SubItems.Add(TIrgendwas(FObjects[i]).BelegnummerAsString);
        Item.SubItems.Add(TIrgendwas(FObjects[i]).EinnahmeAsString + ' €');
        Item.SubItems.Add(TIrgendwas(FObjects[i]).ZweiteZahlAsString + ' €');
        Gesamt := Gesamt + TIrgendwas(FObjects[i]).Summe;
        Item.SubItems.Add(Format('%.2n €', [Gesamt]));
        Item.Data := FObjects[i];
      end;
  finally
    Kassenbuch.Items.EndUpdate;
  end;
end;

Mit den add Daten

Delphi-Quellcode:

begin
  if Form2.ShowModal = mrOK then
    begin
      FObjects.Add(Form2.Irgendwas);
      FGesamt := FGesamt + Form2.Irgendwas.Summe;
      sgObjects.Cells[1, sgObjects.Row] := Form2.Irgendwas.ErsteZahlAsString + ' €';
      sgObjects.Cells[2, sgObjects.Row] := Form2.Irgendwas.ZweiteZahlAsString + ' €';
      sgObjects.Cells[3, sgObjects.Row] := Format('%.2n €', [FGesamt]);
      sgObjects.RowCount := sgObjects.RowCount + 1;
      sgObjects.Row := sgObjects.Row + 1;
    end;
end;

Würde einiges leichtermachen