Objekte in eigener TObjectList verlieren ihre Werte

[ryLIX]

Datenklasse befüllen:

Delphi-Quellcode:

try
  locNonFood := TArtikel.Create;
except on E: Exception do
  begin
   ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
   Exit;
  end;
end;
with locNonFood do
  begin
    Artikelname:=AddArtikelDLG.txtArtikelname.Text;
    Menge:= Integer(AddArtikelDLG.txtAmount.Text);
    Preis:= Integer(AddArtikelDLG.txtPrice.Text);
  end;
if Assigned(Artikel) then Artikel.Add(locNonFood);
  locNonFood.Free;
end;

Aufruf aus der TObjectlist

Delphi-Quellcode:

  if Artikel.Count > -1 then
    begin
      for B := 0 to Artikel.Count - 1 do
      begin
        locNonFood := TArtikel(Artikel.Items[B]);
        LocItem := AListView.Items.Add;
        locItem.Caption := locNonFood.Artikelname;
        locItem.ImageIndex := -1;
        with locItem.SubItems do
        begin
          Add(IntToStr(locNonFood.Menge));
          Add(IntToStr(locNonFood.Preis));
          Add(IntToStr(locNonFood.Kosten));
        end;
      end;  
    end;

Beispiel:
Eingabe bei Artikelname: 'Test'
Ergebnis beim Aufruf: ''
Eingabe bei Menge: '2'
Ergebnis beim Aufruf: '0'
Eingabe bei Preis: '1,99'
Ergebnis beim Aufruf: '0'