Delphi关于析构函数destroy的用法?

Question

destructor TMan.destroy; {从祖先继承一个析构函数}begininherited destroy; end;然后在用AMan:= TMan.create;创建对象执行AMan.destroy;会出现什么情况?此时AMan被销毁了吗,为什么此时AMan<> nil?明白AMan.Free的作用,问题是现在想知道 AMan.destroy;后为什么还会AMan<> nil?

Answer 1

调用：AMan.Free会比AMan.destroy安全，这两个方法都不会将变量置为nil；
常规写法是FreeAndNil(AMan);这个函数除了执行对象的Free，还要将变量置为nil；

Answer 2

Free方法实际上是调用的Destroy:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
Free 首先检查对象指针是否为nil, 因此更安全. 而 Destroy只是释放了对象所分配的内存, 并不将对象指针置为nil, 需要手动设置: AMan = nil;
所以一般这样做法是较安全的: FreeAndNil(AMan);