Delphi 對象的創(chuàng)建(create)與釋放(free/destory)

1、Create參數(shù)為:nil/self/application的區(qū)別，最好能看到實(shí)際效果的區(qū)別

例如: My := TMy.Create(X);

其中的 X 將會(huì)成為控件 My 的 Owner 屬性,
可能會(huì)不只一個(gè)控件把 X 當(dāng)作 Owner.

當(dāng) X 釋放時(shí), 它會(huì)同時(shí)釋放那些把它當(dāng)作 Owner 的所有控件.

譬如:
btn1 := TButton.Create(Panel1);
btn2 := TButton.Create(Panel1);
btn3 := TButton.Create(Panel1);
當(dāng) Panel1.Free 時(shí), btn1、btn2、btn3 都會(huì)同時(shí)釋放.

如果 btn1 := TButton.Create(Self); {譬如 Self 是窗體}
那么窗體釋放時(shí), btn1 也會(huì)同時(shí)釋放.
btn1 := TButton.Create(Application);
當(dāng)程序銷毀時(shí)也會(huì)同時(shí)釋放 btn1.
這對單窗體程序來講基本沒有區(qū)別, 但如果是多窗體就不一樣了.

如果 btn1 := TButton.Create(nil);
那么 btn1 得自己負(fù)責(zé)手動(dòng)釋放(btn1.Free).
你也許會(huì)問: 假如 btn1 所在的窗體都銷毀了, btn1 還會(huì)存在嗎?
答: 如果 Application 還在 btn1 不會(huì)消失(在 Create(nil) 的情況下).
一般情況下, 當(dāng) Application 不在了, 系統(tǒng)會(huì)釋放它所包含的控件.
但等系統(tǒng)來做這件事不是個(gè)好習(xí)慣, 因?yàn)橛欣?一般是在跨進(jìn)程的時(shí)候), 有這樣一句話:
一個(gè)對象分配的內(nèi)存可能會(huì)比對象本身存在的時(shí)間長.

2、Delphi的注銷方法有兩個(gè)：Destroy和Free。
Delphi建議使用Free，因?yàn)樗菵estroy更為安全，同時(shí)調(diào)用Free會(huì)生成效率更高的代碼。
您可以用下列的語句釋放用完的Employee對象：　
Employee.Free;　
和Create方法一樣，Free方法也是TEmployee從TObject中繼承過來的。把您的注銷放在try…finally程序模塊的finally部分，
而把對象的程序代碼放在try部分是編程的好習(xí)慣。這樣，即使您的程序代碼在使用對象時(shí)發(fā)生了異常事件，
也會(huì)確保您為這個(gè)對象分配的內(nèi)存會(huì)被釋放。

二者的區(qū)別是，Destroy 會(huì)直接釋放對象，
而Free會(huì)事實(shí)檢查該對象是否存在，如果對象存在，或者對象不為nil，它才會(huì)調(diào)用Destroy。
因此，程序中應(yīng)該盡量使用free來釋放對象，這樣更加安全一些。
（但要注意，free 也不會(huì)自動(dòng)將對象置為nil，所以在調(diào)用free之后，最好是再手動(dòng)將對象置為nil。）
TObject類有一個(gè)虛擬的Destroy虛構(gòu)函數(shù)和一個(gè)非虛擬的Free函數(shù)。Free函數(shù)中是調(diào)用Destroy的。
因此，當(dāng)我們對任何對象（都是TObject的子類對象）調(diào)用.Free();之后，都會(huì)執(zhí)行TObject.Free();
它會(huì)調(diào)用我們所使用的對象的析構(gòu)函數(shù)Destroy();。這就保證了任何類型的對象都可以正確地被析構(gòu)。

?

轉(zhuǎn)載于:https://www.cnblogs.com/hssbsw/p/3159706.html

總結(jié)

以上是生活随笔為你收集整理的Delphi 对象的创建(create)与释放(free/destory)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。