Destroy wird nach free nicht aufgerufen

[ATS3788]

Hallo

http://www.delphipraxis.net/167726-%...verstehen.html

habe ich mir reingezogen.

Danke klar und verständlich

Delphi-Quellcode:

type
TCustomAusgabeFrx = class
private
_frxReport             : TfrxReport;
_frxReportPage         : TfrxReportPage;

public
constructor  Create;

destructor   Destroy; virtual;

Ein Teil des Custom Objects
die anderen descructor`s mit override überschrieben
wenn ich destroy aufrufe kein Problem, mit free
wird destroy nicht aufgerufen

Was könnte ich übersehen haben

[flipdascript]

Der Destructor ist bereits in der Basisklasse TObject als virtual markiert.

Probiers mal mit

Code:

destructor Destroy; override.

[uligerhardt]

Zitat von flipdascript:

Der Destructor ist bereits in der Basisklasse TObject als virtual markiert.

Ich möchte wetten, deswegen hat der Compiler hierbei

Zitat von ATS3788:

destructor Destroy; virtual;

auch eine Warnung produziert.

[ATS3788]

Hallo

destructor Destroy; override; Habe ich doch schon geschrieben das ich das so gemacht habe

TCustomAusgabeFrx = class Habe das so abegeleitet, OHNE

virtual; mekert der Compiler.

[Sir Rufo]

@ATS3788

Kann es sein, dass uns da ein paar (entscheidene) Infos fehlen?
Welche anderen Destruktoren?
Von welcher Klasse wird abgeleitet?

[Blup]

Zitat von ATS3788:

Delphi-Quellcode:

{...}
destructor   Destroy; virtual;

Ein Teil des Custom Objects
die anderen descructor`s mit override überschrieben
wenn ich destroy aufrufe kein Problem, mit free
wird destroy nicht aufgerufen

Was könnte ich übersehen haben

Jede Klasse hat eine Liste der virtuellen Methoden.
Für abgeleitete Klassen wird eine Kopie dieser Tabelle erstellt und Einträge überschrieben (override) oder neue hinzufügen (virtual).

Mit "Destroy; virtual;" gibt es dann zwei Einträge für Destroy in deiner Klasse.
Free kennt nur den Index des orginalen Destroy in der Tabelle, den schon die Klasse TObject deklariert.
Deshalb immer override für Destroy:

Delphi-Quellcode:

{...}
destructor   Destroy; override;

[ATS3788]

Sir Rufo

ich verstehe nicht

Ich habe eine Mutter Object ohne Basic Klasse.

TCustomAusgabeFrx = class

geht das nicht ?

Wo könnte mein Denkfehler liegen

Frohe Oster allen Delphianern

[Sir Rufo]

Du sprichst von

Zitat von ATS3788:

Ein Teil des Custom Objects
die anderen descructor`s mit override überschrieben

und das ist Plural also mehrere -> welche anderen also?

Jede Klasse wird von TObject abgeleitet und damit erbt jede Klasse den destructor von TObject (was auch zwingend ist).

Und diesen destructor muss ich überschreiben (override ), wenn meine Klasse dort etwas besonderes ausführen soll.

Kennzeichne ich den destructor als virtual dann wird nicht der destructor der Basisklasse überschrieben, was doof ist, denn genau der aus der Basisklasse (TObject) wird aufgerufen und der eigene in diesem Fall nicht.

Somit sieht ein destructor immer so aus
destructor Destroy; override;

[Uwe Raabe]

Zitat von ATS3788:

Ich habe eine Mutter Object ohne Basic Klasse.

TCustomAusgabeFrx = class

In dem Fall wird implizit immer class(TObject) verwendet. Insofern gibt es keine Klasse ohne Basisklasse außer TObject.

[ATS3788]

Danke Danke

Ich muss Destroy gleich mit override überschreiben.
Schon im Custom Object.

Delphi-Quellcode:

TObject = class
 ...
public
 ...
   destructor Destroy; virtual;
end;

der Teil hatte mich verwirrt gehabt.