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:

Zitat von flipdascript (Beitrag 1209133)

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

Ich möchte wetten, deswegen hat der Compiler hierbei

Zitat:

Zitat von ATS3788 (Beitrag 1209132)

Delphi-Quellcode:

destructor   Destroy; virtual;

auch eine Warnung produziert.

[ATS3788]

Hallo

Delphi-Quellcode:

destructor   Destroy;  override;

Habe ich doch schon geschrieben das ich das so gemacht habe

Delphi-Quellcode:

TCustomAusgabeFrx = class

Habe das so abegeleitet, OHNE

Delphi-Quellcode:

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:

Zitat von ATS3788 (Beitrag 1209132)

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:

Zitat von ATS3788 (Beitrag 1209132)

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

Delphi-Quellcode:

TObject

abgeleitet und damit erbt jede Klasse den destructor von

Delphi-Quellcode:

TObject

(was auch zwingend ist).

Und diesen destructor muss ich überschreiben (

Delphi-Quellcode:

override

), wenn meine Klasse dort etwas besonderes ausführen soll.

Kennzeichne ich den destructor als

Delphi-Quellcode:

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

Delphi-Quellcode:

destructor Destroy; override;

[Uwe Raabe]

Zitat:

Zitat von ATS3788 (Beitrag 1209308)

Ich habe eine Mutter Object ohne Basic Klasse.

TCustomAusgabeFrx = class

In dem Fall wird implizit immer

Delphi-Quellcode:

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.