Zitat von
malo:
Zitat von
GuenterS:
Hm Du solltest im Destructor von SuperKlasse auch nur Klasse B freigeben (mit Free), dadurch wird der Destructor der Klasse B aufgerufen wo Du dann Klasse A freigeben kannst.
Aber ich krieg auch eine
Exception, wenn ich KlasseB freigeben will. Das ist das seltsame...
Zitat von
GuenterS:
Poste doch mal den Code, womit Du Probleme hast, dann kann man sicher leichter helfen.
Wollte ich eigentlich auch machen, allerdings sitze ich grade am falschen Rechner und hab keinen Zugriff auf meine Sourcen. Daher hab ich versucht das Problem mit meinem Beispiel oben zu beschreiben. Wenn ich wieder an meinem PC bin, werd ich den entspr. Source posten
Ich gehe davon aus, dass Du KlasseB auch erzeugt hast in SuperKlasse?
Delphi-Quellcode:
constructor TSuperKlasse.create;
begin
...
KlasseB := TKlasseB.Create;
end;
...
destructor TSuperKlasse.destroy;
begin
KlasseB.Free;
...
end;