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

推荐分享