"Unsterbliche" Klassen

[Neutral General]

Zitat von Dax:

Zitat von MaBuSE:

Dann kann ich selbst ausprobieren, ob TObject(Klasse).Free; funktioniert.

Ich füchte das wird nix Free ruft Destroy auf, Destroy ruft FreeInstance auf, und FreeInstance ist nun mal virtuell und damit nur über patchen wieder auf TObject zurückbiegbar.

Edit: So, killen wir die Klasse mal.FreeMem(Pointer(Unverwundbar), Unverwundbar.InstanceSize);

Hehe

Delphi-Quellcode:

var Unv : TUnverwundbar
FreeMem(Pointer(Unv), TUnverwundbar.InstanceSize);

Das bringt nix