最近在集成ZJ的模塊的時(shí)候，發(fā)現(xiàn)當(dāng)窗體關(guān)閉的時(shí)候，頻繁的彈出內(nèi)存訪問錯(cuò)誤，實(shí)在是煩躁啊，看了下代碼，雖然很慘，但也沒發(fā)現(xiàn)創(chuàng)建對象需要釋放的問題，最后看到窗體關(guān)閉的時(shí)候，執(zhí)行了一大段代碼，考慮可能是窗體關(guān)閉的時(shí)候，其中的事件沒有執(zhí)行完成。考慮到這點(diǎn)，在Close事件中加入了Release方法，調(diào)試，問題解決。順便查了下destroy, free, freeAndNil, release用法和區(qū)別，如下：

===以下方法源自網(wǎng)絡(luò)===

　　1)destroy:虛方法
　　釋放內(nèi)存,在Tobject中聲明為virtual,通常是在其子類中override 它，且要加上inherited關(guān)鍵字，才能保證派生類對象正確地被銷毀;
　　但destroy一般不能直接用，為什么？
　　假如當(dāng)一個(gè)對象為nil，我們?nèi)匀徽{(diào)用destroy，此時(shí)會產(chǎn)生錯(cuò)誤。因?yàn)閐estroy是虛方法,它要根據(jù)對象中的頭四個(gè)字節(jié)找到虛擬方法表Vmt的入口地址，從而找到destroy的入口地址，所以此時(shí)對象一定要存在。但free就是靜態(tài)方法,它只需根據(jù)對象引用/指針的類型來確定，即使對象本身不存在也沒問題，而且在free中有判斷對象是否存在的操作，所以用free比用destroy安全。

　　2)free:靜態(tài)方法
　　測試對象是否為nil, 非nil則調(diào)用destroy。下面是free的Delphi代碼:
　　procedure TObject.Free;
　　begin
　　if Self <> nil then
　　Destroy;
　　end;
　　一靜一動，取長補(bǔ)短，豈不妙哉！
　　但是調(diào)用對象的Destroy只是把對象銷毀了，但并沒有把對象的引用設(shè)為nil，這需要程序員來完成，不過自從Delphi5之后，在sysUtils單元中提供了一個(gè)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中定義的靜態(tài)方法。　　
　　當(dāng)窗口中所有的事件處理完之后，才調(diào)用free函數(shù)。常用在銷毀窗口，而在這個(gè)窗口中事件處理需要一定的時(shí)間的時(shí)候，用這個(gè)方法能確保窗口事件處理完之后才銷毀窗口。下面是TCustomForm.Release的Delphi源代碼:
　　procedure TCustomForm.Release;
　　begin
　　PostMessage(Handle, CM_RELEASE, 0, 0);
　　//向窗口發(fā)CM_RELEASE消息到消息隊(duì)列，當(dāng)所有的窗口事件消息處理完之后，
　　//再調(diào)用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用法和區(qū)別，轉(zhuǎn)載需保留來源！

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請第一時(shí)間聯(lián)系我們修改或刪除，多謝。