Delphi Free和FreeAndNil之间的区别

Free和FreeAndNil之间的区别

 

通过运行以下示例，可以正确保存位图吗？

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

 

  bm: TBitmap;

begin

  bm := TBitmap.Create;

  bm.LoadFromFile('C:\Users\Andreas Rejbrand\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin32\Football\up.bmp');

  bm.Free;

 

  if Assigned(bm) then

    bm.SaveToFile('C:\Users\Andreas Rejbrand\Desktop\test.bmp')

  else

    ShowMessage('Cannot save! The bitmap does no longer exist!');

end;

 

Free调用销毁者Destroy例程，仅从内存中释放它，因此在下面的示例中

它已从内存中释放出来，但是由于bm仍然具有内存地址值，因此会创建错误或错误的（空）位图。要解决此问题，您可以添加bm：= nil。另一种方法是FreeAndNil（bm）而不是bm.Free; 您可以将代码替换为  

这是因为freeandnil过程释放对象使用的内存，并将引用变量设置为nil。

 

FreeAndNil是在SysUtils单元中声明的过程，并在Delphi 4中引入。这是FreeAndNil代码：

 

procedure FreeAndNil(var Obj);

var

  Temp: TObject;

begin

  Temp := TObject(Obj);

  Pointer(Obj) := nil;

  Temp.Free;

end;

 

 

实际上，执行首先会使引用的变量为空，然后释放内存。一些开发人员认为您应该使用FreeAndNil而不是Free，但是只要您释放一个对象并且不重用该对象的实例变量，那么Free就足够了。相反，如果您不了解FreeAndNil的确切目的，而仅将其用作解锁的手段，则可能会使您在理解源代码时更加困惑。