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创建，在调用构造函数之前调用 （仅因为它是构造函数）

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