对象释放两种方法对比：Free 和 FreeAndNil()

Posted 2020-12-25 bsor

free：静态方法

测试对象是否为nil, 不为nil则调用destroy。下面是free的Delphi代码:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

一静一动，取长补短，岂不妙哉！
但是调用对象的Destroy只是把对象销毁了，但并没有把对象的引用设为nil，这需要程序员来完成，不过自从Delphi5之后，在sysUtils单元中提供了一个freeAndNil。

freeAndNil：一个独立的函数，不属于任何对象，非对象方法，非类方法。

procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

建议大家用它代替free/Destroy，以便确保正确地释放对象。