最近在集成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中定義的靜態方法?！　?br />　　當窗口中所有的事件處理完之后，才調用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用法和區別，轉載需保留來源！

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。