Hallo,
ich habe mir eine Basisklasse im Wesentlichen wie folgt definiert (aufs Wesentliche reduziert):
Delphi-Quellcode:
type
TMCExport = class
public
destructor Destroy ; virtual ;
end ;
implementation
destructor TMCExport.Destroy;
begin
CloseExportFile ; // erst mal unwichtig, was hier drin steht. Ein textfile soll hier nur geschlossen werden
inherited Destroy ;
end;
Darauf baut eine Klasse
Delphi-Quellcode:
type
TMCExport_Radial = class (TMCExport)
end ;
var
Radial : TMCExport_Radial ;
mit irgendwelchen klassenspezifischen Funktionen.
Radial wird wie gehabt über Create erzeugt. Klappt auch alles soweit. Der Constructor ist in TMCExport definiert, und wird auch wie gewollt aufgerufen.
Durch Radial.free gebe ich meine Klasse wieder frei. Jetzt sagt mir meine Logik, daß da der Destructor destroy aus TMCExport aufgerufen werden soll... Tut er aber nicht.
Was mach ich da falsch?