想象一下我有一堂课：TCantBeDestroyed
有人知道如何直接创建一种在两种情况下都不能被销毁的实例：
不能被毁坏。免费；
CantBeDestroyed.Destroy;
并且不能被演员摧毁：
TObject(CantBeDestroyed).Free;
TObject(CantBeDestroyed).Destroy;
Tks.
你无法阻止任何人调用析构函数或Free，但您可以确保这样做不会产生任何影响：
type
TCannotBeDestroyed = class
public
destructor Destroy; override;
procedure BeforeDestruction; override;
procedure FreeInstance; override;
end;
destructor TCannotBeDestroyed.Destroy;
begin
//don't call inherited
end;
procedure TCannotBeDestroyed.BeforeDestruction;
begin
//don't call inherited
end;
procedure TCannotBeDestroyed.FreeInstance;
begin
//don't call inherited
end;
我无法想象你为什么要这样做！
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
