Objekte in eigener TObjectList verlieren ihre Werte

[ryLIX]

Hi ihr,
ich habe eine angepasste TObjectList in der ich eigene Datenklassen speichere.

Aber wenn ich nun eine neue Datenklasse erstelle, diese mit Daten befülle und dann in der Liste ablege sind beim nächsten Aufruf der Klasse aus der Liste die Werte ganze weg oder vollkommen unbrauchbar. :shock:
Die Add Prozedur habe ich aber nicht verändert in der Liste.

Ich arbeite derzeit mit Delphi2009.

Kennt jemand eine Lösung hier?

[mkinzler]

Ohne deinen Code zu kennen: Nein.

[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'
:wiejetzt:

[mkinzler]

Dise Zeile muss weg:

Delphi-Quellcode:

locNonFood.Free;

[hoika]

Hallo,

ausserdem würde ich eine Liste auch ArtikelList
und nicht Artikel nennen.


Heiko

[ryLIX]

Zitat:

Zitat von mkinzler

Dise Zeile muss weg:

Delphi-Quellcode:

locNonFood.Free;

Arrg jetzt kommts :wall: :wall:
Ich hab bestimmt ewig gelesen um das mit der TObjectList zu verstehen.
Und nu wo du es sagst fällts mir auch auf das ja die Liste das freigeben der Objekte übernimmt :wall:

Zitat:

Zitat von hoika

Hallo,

ausserdem würde ich eine Liste auch ArtikelList
und nicht Artikel nennen.


Heiko

Danke für den Hinweis.
Aber die Namen sind derzeit nicht wichtig.
Die Anwendung dient im Moment nur zum Testen der Datenklasse und der Containerklasse. :stupid:

[mkinzler]

Zitat:

Und nu wo du es sagst fällts mir auch auf das ja die Liste das freigeben der Objekte übernimmt ouch!

Selbst, wenn sie das nicht machen würde, ist es an dieser Stelle schlecht

[Namenloser]

Delphi-Quellcode:

with locNonFood do
  begin
    Artikelname:=AddArtikelDLG.txtArtikelname.Text;
    Menge:= Integer(AddArtikelDLG.txtAmount.Text);
    Preis:= Integer(AddArtikelDLG.txtPrice.Text);
  end;

Typecast auf Integer? Bist du sicher? Du suchst denke ich eher StrToInt.

[ryLIX]

Zitat:

Zitat von NamenLozer

Delphi-Quellcode:

with locNonFood do
  begin
    Artikelname:=AddArtikelDLG.txtArtikelname.Text;
    Menge:= Integer(AddArtikelDLG.txtAmount.Text);
    Preis:= Integer(AddArtikelDLG.txtPrice.Text);
  end;

Typecast auf Integer? Bist du sicher? Du suchst denke ich eher StrToInt.

Ist mir vorhin auch schon aufgefallen... Ab und zu schreib ich schneller als ich denke :stupid:

[Panthrax]

Zitat:

Zitat von ryLIX

Aber die Namen sind derzeit nicht wichtig.

Bezeichner sind immer wichtig.