Destroy wird nach free nicht aufgerufen

[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

[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.

[Sir Rufo]

Falls man sich bei der Klassenerstellung nicht sicher ist, was die Vorgängerklasse (es gibt ja immer eine) so an virtuellen Gedöns parat hält, dann beim Schreiben der Klasse

Delphi-Quellcode:

type
  TMyNewClass = class
    // <- einfach mal mit dem Cursor in eine freie Zeile und SHIFT-STRG-SPACE drücken :o)
  end;

Das spart auch eine Menge Tipparbeit.

BTW: Das funktioniert auch mit eigenen virtuellen Methoden und Eigenschaften und ein RangeSelect geht auch
(Ob das bei der Starter auch geht )