Unterschiedliche Objekte in einer Liste speichern

[Neutral General]

Hast du denn mal debugged?
Wo genau krachts denn im TItems.Add?
Ist die Liste erstellt? Wird der constructor von TItems (korrekt) ausgeführt?

Was mir noch aufgefallen ist: In TItems.Delete brauchst du folgende Zeile nicht (bzw. sie kann sogar Fehler verursachen):
TObject(FInnerList.Items[Index]).Free;
Eine TObjectList gibt die Objekte die entfernt werden automatisch vorher frei.
(Das wird durch die "OwnsObjects" Eigenschaft gesteuert, die auch im constructor optional übergeben werden kann)

[mkinzler]

Warum nimmst Du TList und nicht TObjectList?

[Sir Rufo]

Zitat von mkinzler:

Warum nimmst Du TList und nicht TObjectList?

Er nimmt doch TObjectList ... und das verursacht das Problem. Denn er gibt die Instanz frei und die TObjectList will die Instanz auch noch freigeben.

Rumms!

[Neutral General]

Zitat von Sir Rufo:

Zitat von mkinzler:

Warum nimmst Du TList und nicht TObjectList?

Er nimmt doch TObjectList ... und das verursacht das Problem. Denn er gibt die Instanz frei und die TObjectList will die Instanz auch noch freigeben.

Rumms!

Er benutzt beides. TList bei TFields und TObjectList bei TItems

[Sir Rufo]

Zitat von Neutral General:

Er benutzt beides. TList bei TFields und TObjectList bei TItems

Hab ich nicht gesehen ... also insgesamt etwas durcheinander der Aufbau

[hoika]

Hallo,

was passiert, wenn du nur das hier machst?

Delphi-Quellcode:

ItemA := TItemA.Create;
Items.Add(ItemA); //<- Ungültige Zeigeroperation

Übrigens hat TObjectList ein OwnsObject (Boolean),
setze das auf False, dann kannst du das Free auch selbst machen.


Heiko

[Sir Rufo]

Zitat von hoika:

Übrigens hat TObjectList ein OwnsObject (Boolean),
setze das auf False, dann kannst du das Free auch selbst machen.

Oder man lässt es auf true und spart sich jede Menge Boilerplate-Code