剖析Delphi中的构造和析构

领测软件测试网

  end;
 一静一动，取长补短，岂不妙哉！
不过，调用Destroy只是把对象销毁了，但并没有把对象的引用设为nil，这需要程序员来完成，不过自从Delphi5之后，在sysUtils单元中提供了一个freeAndNil。
 3)freeAndNil;一般方法，非对象方法，非类方法。
SysUtils单元中FreeAndNil 定义
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;
建议大家用它代替free/Destroy，以便确保正确地释放对象。
4)release；TcustomForm中定义的静态方法。
当窗口中所有的事件处理完之后，才调用free函数。常用在销毁窗口，而在这个窗口中事件处理需要一定的时间的时候，用这个方法能确保窗口事件处理完之后才销毁窗口。下面是TCustomForm.Release的Delphi源代码:
procedure TCustomForm.Release;
begin
  PostMessage(Handle, CM_RELEASE, 0, 0);

文章来源于领测软件测试网 https://www.ltesting.net/