Destroy wird nach free nicht aufgerufen

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