|
|
最近在集成ZJ的模塊的時候，發(fā)現(xiàn)當窗體關閉的時候，頻繁的彈出內(nèi)存訪問錯誤，實在是煩躁啊，看了下代碼，雖然很慘，但也沒發(fā)現(xiàn)創(chuàng)建對象需要釋放的問題，最后看到窗體關閉的時候，執(zhí)行了一大段代碼，考慮可能是窗體關閉的時候，其中的事件沒有執(zhí)行完成。考慮到這點，在Close事件中加入了Release方法，調試，問題解決。順便查了下destroy, free, freeAndNil, release用法和區(qū)別，如下：
===以下方法源自網(wǎng)絡===
1)destroy:虛方法
釋放內(nèi)存,在Tobject中聲明為virtual,通常是在其子類中override 它，且要加上inherited關鍵字，才能保證派生類對象正確地被銷毀;
但destroy一般不能直接用，為什么？
假如當一個對象為nil，我們?nèi)匀徽{用destroy，此時會產(chǎn)生錯誤。因為destroy是虛方法,它要根據(jù)對象中的頭四個字節(jié)找到虛擬方法表Vmt的入口地址，從而找到destroy的入口地址，所以此時對象一定要存在。但free就是靜態(tài)方法,它只需根據(jù)對象引用/指針的類型來確定，即使對象本身不存在也沒問題，而且在free中有判斷對象是否存在的操作，所以用free比用destroy安全。
2)free:靜態(tài)方法
測試對象是否為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中定義的靜態(tài)方法。
當窗口中所有的事件處理完之后，才調用free函數(shù)。常用在銷毀窗口，而在這個窗口中事件處理需要一定的時間的時候，用這個方法能確保窗口事件處理完之后才銷毀窗口。下面是TCustomForm.Release的Delphi源代碼:
procedure TCustomForm.Release;
begin
PostMessage(Handle, CM_RELEASE, 0, 0);
//向窗口發(fā)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用法和區(qū)別，轉載需保留來源！
鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯(lián)系我們修改或刪除，多謝。
