destroy, free, freeAndNil, release用法和区别

  最近在集成ZJ的模块的时候,发现当窗体关闭的时候,频繁的弹出内存访问错误,实在是烦躁啊,看了下代码,虽然很惨,但也没发现创建对象需要释放的问题,最后看到窗体关闭的时候,执行了一大段代码,考虑可能是窗体关闭的时候,其中的事件没有执行完成。考虑到这点,在Close事件中加入了Release方法,调试,问题解决。顺便查了下destroy, free, freeAndNil, release用法和区别,如下:

===以下方法源自网络===

  1)destroy:虚方法
  释放内存,在Tobject中声明为virtual,通常是在其子类中override 它,且要加上inherited关键字,才能保证派生类对象正确地被销毁;
  但destroy一般不能直接用,为什么?
  假如当一个对象为nil,我们仍然调用destroy,此时会产生错误。因为destroy是虚方法,它要根据对象中的头四个字节找到虚拟方法表Vmt的入口地址,从而找到destroy的入口地址,所以此时对象一定要存在。但free就是静态方法,它只需根据对象引用/指针的类型来确定,即使对象本身不存在也没问题,而且在free中有判断对象是否存在的操作,所以用free比用destroy安全。


  2)free:静态方法
  测试对象是否为nil, 非nil则调用destroy。下面是free的Delphi代码:
  procedure TObject.Free;
  begin
  if Self <> nil then
  Destroy;
  end;
  一静一动,取长补短,岂不妙哉!
  但是调用对象的Destroy只是把对象销毁了,但并没有把对象的引用设为nil,这需要程序员来完成,不过自从Delphi5之后,在sysUtils单元中提供了一个freeAndNil。


  3)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);
  //向窗口发CM_RELEASE消息到消息队列,当所有的窗口事件消息处理完之后,
  //再调用CM_RELEASE消息处理过程CMRelease
  end;
  再看看下面CM_RELEASE消息处理过程CMRelease的定义:
  procedure CMRelease(var Message: TMessage); message CM_RELEASE;
  procedure TCustomForm.CMRelease;
  begin
  Free; //最后还是free;
  end;

it知识库destroy, free, freeAndNil, release用法和区别,转载需保留来源!

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。