Objectlist für listview

[Natcree]

Habe ein Problem mit dem folgenden Code er sagt array type required. Habe eine Objectlist erstellt und will nun daten aus einer Listview einlesen

Hier mal der Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
   Item: TListItem;
   i: integer;
   FGesamt: double;
 begin
   FGesamt := 0;
   ListView1.Items.BeginUpdate;
   try
     ListView1.Items.Clear;
     for i := 0 to fobjects.Count - 1 do
       begin

         Item := ListView1.Items.Add;
         Item.Caption := Format('%s €', [tobjectlist1[i].ErsteZahlAsString]);//Hier meckert er
         Item.SubItems.Add(Format('%s €', [Tobjectlist1[i].ZweiteZahlAsString]));
         Gesamt := Gesamt + fobjects[i].Summe;
         Item.SubItems.Add(Format('%.0n €', [FGesamt]));
       end;
   finally
     ListView1.Items.EndUpdate;
   end;
 end;

Kann es sein das ich für die

Delphi-Quellcode:

procedure SetErsteZahlAsString(const Value: string);
function GetErsteZahlAsString: string;
property ErsteZahl: double read FErsteZahl write FErsteZahl;
property ErsteZahlAsString: string read GetErsteZahlAsString write SetErsteZahlAsString;

noch index mit hinzufügen muss???

[DeddyH]

Zitat:

for i := 0 to fobjects.Count - 1 do

Zitat:

Item.Caption := Format('%s €', [tobjectlist1[i].ErsteZahlAsString]);

fobjects oder tobjectlist1, was denn nun?

[Natcree]

nehme ich fObjects sagt er in der undeclared identyfier erstezahlas string

[DeddyH]

Logisch, weil TObject keine solche Property besitzt. Du musst erst in den passenden Typ casten, entweder mit
TIrgendwas(FObjects[i]) oder mit
(FObjects[i] as TIrgendwas)

[Natcree]

wo muss ich es casten?

[DeddyH]

Da, wo "er meckert".