Destruktor wird nicht aufgerufen

[jjep]

Hallo zusammen

Ich habe in meinem Programm die Klasse TTest definiert, in dieser Klasse befindet sich auch der Destruktor...

Delphi-Quellcode:

type
  TTest = class(TObject)
  public
    constructor create();
    destructor destroy();
  end;

um ein Objekt des Typs TTest zu schliessen, benutze ich den Aufruf "free". Dieser sollte ja destroy aufrufen, wenn das Objekt nicht nil ist. Doch der Haltepunkt in destroy wird nie erreicht.

Wieso wird mit free nicht destroy aufgerufen?
Wieso ist das Objekt nach dem Aufruf von free nicht nil?

Danke vielmals
jjep

[oki]

Hi,

so sollte es klappen:

Delphi-Quellcode:

type
  TTest = class(TObject)
  public
    constructor create();
    destructor destroy(); override;
  end;

Im Destructor Inherited nicht vergessen.

Gruß oki

[DeddyH]

Eigentlich sollte der Destruktor schon aufgerufen werden. Und dass Dein Objekt anschließend nicht nil ist, liegt am Aufruf. Nimm statt Free einmal FreeAndNil.

[mkinzler]

Zitat:

Wieso wird mit free nicht destroy aufgerufen?

Wie sieht Destroy aus?

Zitat:

Wieso ist das Objekt nach dem Aufruf von free nicht nil?

Die Klasse kennt die Referenzvariablen ja nicht. Deshalb kann sie diese auch nicht auf Nil setzen ->

Delphi-Quellcode:

FreeAndNil( <Referenz>);

[jjep]

Ja logisch override vergessen :wall:

Zitat:

Delphi-Quellcode:

 destructor destroy(); override;

Super! FreeAndNil war genau das, was ich gesucht habe!!

Zitat:

Delphi-Quellcode:

 FreeAndNil( <Referenz>);

:dp: Danke an Alle