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;