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:

Delphi-Quellcode:

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

Zitat:

Delphi-Quellcode:

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

Delphi-Quellcode:

TIrgendwas(FObjects[i])

oder mit

Delphi-Quellcode:

(FObjects[i] as TIrgendwas)

[Natcree]

wo muss ich es casten?

[DeddyH]

Da, wo "er meckert".

[Natcree]

okay jetzt macht er es. Nun muss ich die daten noch in die Listview eintragen lassen. habe ja noch die Form2 aus der demo . jedoch meckert er jetzt da.

[Natcree]

ich denke mal ne demo wäre sinnvoller dann kann ich die zusammenhänge besser begreifen. hänge sie doch hier an.

[DeddyH]

Ich hab sie nicht hier, sondern zu Hause.

[Natcree]

Habe mal dies hinbekommen es Läuft auch.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Item: TListItem;
   i: integer;
   Gesamt: double;
 begin
   if form2.ShowModal = mrok then begin
   Gesamt := 0;
   ListView1.Items.BeginUpdate;
   try
     ListView1.Items.Clear;
     for i := 0 to fObjects.Count - 1 do
       begin
         Item := ListView1.Items.Add;
         Item.Caption := TIrgendwas(FObjects[i]).ErsteZahlAsString;
         Item.SubItems.Add(TIrgendwas(FObjects[i]).ZweiteZahlAsString);
         FGesamt := FGesamt + TIrgendwas(FObjects[i]).Summe;
         Item.SubItems.Add(Format('%.0n €', [FGesamt]));
      end;
   finally
     ListView1.Items.EndUpdate;
   end;
 end;
end;

Wie kriege ich jetzt die Daten in die List view bei der eingabe in form2 schlies er das Fenster aber in der form1 in der Listview steht nichts drinne

[sx2008]

Dir fehlt schlicht und ergreifend eine Zwischenvariable, die das Leben viel einfacher macht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Item: TListItem;
   i: integer;
   Gesamt: double;
   irgendwas : TIrgendwas; // die Zwischenvariable
begin
   if form2.ShowModal = mrok then begin
   Gesamt := 0;
   ListView1.Items.BeginUpdate;
   try
     ListView1.Items.Clear;
     for i := 0 to fObjects.Count - 1 do
       begin
         irgendwas := FObjects[i] as TIrgendwas;  // ***
         // jetzt kann man ganz bequem mit "irgendwas" weiterarbeiten
         // der Code wird viel klarer und einfacher zu lesen
         Item := ListView1.Items.Add;
         Item.Caption := IntToStr(irgendwas.ErsteZahl);
         Item.SubItems.Add(IntToStr(irgendwas.ZweiteZahl));
         Gesamt := Gesamt + irgendwas.Summe;  // nicht "FGesamt" sondern die lokale Variable "Gesamt"
         Item.SubItems.Add(Format('%.0n €', [Gesamt]));
      end;
   finally
     ListView1.Items.EndUpdate;
   end;
 end;
end;

[Natcree]

Habe Gesamt jetzt unter Privat declariert Daher so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    Item: TListItem;
    i: integer;
    irgendwas : TIrgendwas; 
 begin
    if form2.ShowModal = mrok then begin
    Gesamt := 0;
    ListView1.Items.BeginUpdate;
    try
      ListView1.Items.Clear;
      for i := 0 to fObjects.Count - 1 do
        begin
          irgendwas := FObjects[i] as TIrgendwas; 
          Item := ListView1.Items.Add;
          Item.Caption := irgendwas.ErsteZahlasstring;
          Item.SubItems.Add (irgendwas.ZweiteZahlasstring);
          Gesamt := Gesamt + irgendwas.Summe; Variable "Gesamt"
          Item.SubItems.Add(Format('%.0n €', [Gesamt]));
       end;
    finally
      ListView1.Items.EndUpdate;
    end;
  end;
 end;

Er Zeigt aber immer noch nichts in der Listview an. Muss der code in die Form1 oder Form2 wo ich die Daten eingebe und mit ok bestätige ???

[DeddyH]

Du musst das in Form2 erzeugte Objekt erst einmal Deiner Liste hinzufügen, sonst wird das nix.