Delphi析构函数:继承调用后执行代码？

Question

Delphi中在析构函数中继承调用后执行代码真的没问题吗？

您可以在System.Classes中找到它:

destructor TThread.Destroy;
begin
[...]
  inherited Destroy;
  FFatalException.Free;
end;

我认为,在调用继承的Destroy方法之后访问实例成员是个坏主意.

Answer 1

在调用继承的析构函数之后执行代码是完全安全的,只要该代码不依赖于已被继承的析构函数销毁的内容.以同样的方式,在调用继承的构造函数之前执行代码是安全的,只要代码不依赖于在该继承的构造函数中实例化的任何内容.

但这肯定不是好风格.有些原因会导致您使用此类代码,但通常应将这些原因视为您设计中出现问题的原因.

在您给出的示例中,根本不需要以这种方式编写代码.在调用FFatalException.Free继承的析构函数之前,调用很可能完成.

Answer 2

实例不是通过析构函数本身从内存中删除，而是通过调用 TObject.FreeInstance

TObject.FreeInstance被调用，因为在处理析构函数代码后调用了析构函数。

BTW：构造函数也是一样。实例被创建class function TObject.NewInstance : TObject并在调用构造函数之前被调用（仅仅因为它是一个构造函数）

因此，您将在整个构造函数或析构函数代码中拥有一个有效的实例。