Free eines unbekannten Objektes

[sirius]

Genau das sollte funktionieren. Dafür ist ja Veerbung und Polymorphie da.
btw: Die Methode free ist von TObject. Du kannst also auch auf TObject casten und free aufrufen.

Probier vielleicht mal das casten mit as:

Delphi-Quellcode:

(ListemitObjekten.Items[i] as T3DObj).Free; 
//oder
[s](ListemitObjekten.Items[i] as TObject).Free; [/s]

Das könnte evtl. die Fehlersuche erleichtern.


Edit: As TObject ist natürlich quatsch, sorry.
Dann doch eher:

Delphi-Quellcode:

TObject(ListemitObjekten.Items[i]).Free; 
//oder alles zusammen
(TObject(ListemitObjekten.Items[i]) as T3DObj).Free;

Und was heißt: "es funktioniert nicht"?