Txt in Listview Laden

[Sir Rufo]

Zitat von Natcree:

tkUString undeclared identifier ???

Sorry, ja den musst du rausnehmen, weil du kein Unicode hast

[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

[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;