Inherited destroy Problem

[Jelly]

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?

[mirage228]

Hi,

müsste es hinter dem Destroy der Basisklasse nicht override heißen (es ist ja bereits in TObject virtuell)?

mfG
mirage228

[Jelly]

Danke mirage, jetzt klappts... Aber verstanden hab ichs nicht. Den Konstructor hab ich doch auch virtual deklariert, und der wird aber aufgerufen... Ich dacht, bei free wird automatisch der Destructor aufgerufen.

[mirage228]

Zitat von Jelly:

Danke mirage, jetzt klappts... Aber verstanden hab ichs nicht. Den Konstructor hab ich doch auch virtual deklariert, und der wird aber aufgerufen... Ich dacht, bei free wird automatisch der Destructor aufgerufen.

Hi,

liegt vllt. daran, dass der Konstruktur vorher nicht als virtual deklariert wurde (in TObject)

mfG
mirage228

[Jelly]

Ja, kann sein. Den constructor kann ich auch nicht überschreiben, da der wohl in TObject nicht als virtual deklariert ist. Ich denk, jetzt ists mir klar geworden... Dank dir.