destructor von tlist-objekt

[markus lemcke]

Hallo,

ich habe ein objekt von tlist:
<pre>
Type
TWarenkorb = class(Tlist)
public procedure NeuerEintrag(Eintrag:TWarenkorbeintrag);
public procedure EintragLoeschen(Nummer:Integer);
destructor Destroy; override;
end;
</pre>

und es mit folgendem destructor probiert:
<pre>
destructor TWarenkorb.Destroy;
begin
clear;
end;
</pre>

aber der löscht nur die items oder?
was fehlt, damit die liste zerstört wird ohne dass eine schutzverletzung kommt?

Gruß

Markus

[StefanLaut]

Hallo,
<br>

das sollte dein Problem lösen
<br>

destructor TWarenkorb.Destroy;
begin
clear;
inherited;
end

[markus lemcke]

hi stefan,

inherited ruft den "Ur-Destructor" auf oder

[StefanLaut]

richtig, und der zerstört das Objec

[markus lemcke]

danke

[shadows]

Bedenke! Wenn du die Original Clear methode aufrufst, weden die Objekte, die in der liste gehalten werden nicht zerstöhrt!
Ich überlade die Desrtoy Routine auch nicht, da es sein kann, das ich nur eine zusatzliste brauche, die mir sagen wir mal z.b. selectierte einträger oder so hällt.
Ich erstelle immer eine Methode:

procedure TWahrenkorb.FreeObjectList;
var
i: integer;

begin
for i:=0 to count-1 do
TObject(self[i]).free;

clear;
end;

Da ich alle Objekte einer Liste mindestens von TObjekt ableiteite geht das ohne zu überprüfen, um was für ein objekt es sich überhaupt handelt

[markus lemcke]

okay, danke