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的确切目的，而仅将其用作解锁的手段，则可能会使您在理解源代码时更加困惑。
Delphi Free和FreeAndNil之间的区别

相关推荐

评论
