首頁猿問 Delphi關(guān)于析構(gòu)函數(shù)destr...

Delphi關(guān)于析構(gòu)函數(shù)destroy的用法?

Ionic

蝴蝶不菲 2019-02-06 10:07:25

destructor TMan.destroy; {從祖先繼承一個(gè)析構(gòu)函數(shù)}begininherited destroy; end;然后在用AMan:= TMan.create;創(chuàng)建對(duì)象執(zhí)行AMan.destroy;會(huì)出現(xiàn)什么情況?此時(shí)AMan被銷毀了嗎,為什么此時(shí)AMan<> nil?明白AMan.Free的作用,問題是現(xiàn)在想知道 AMan.destroy;后為什么還會(huì)AMan<> nil?

查看完整描述

2 回答

森林海

TA貢獻(xiàn)2011條經(jīng)驗(yàn) 獲得超2個(gè)贊

調(diào)用：AMan.Free會(huì)比AMan.destroy安全，這兩個(gè)方法都不會(huì)將變量置為nil；
常規(guī)寫法是FreeAndNil(AMan);這個(gè)函數(shù)除了執(zhí)行對(duì)象的Free，還要將變量置為nil；

反對(duì) 回復(fù) 2019-03-16

肥皂起泡泡

TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超6個(gè)贊

Free方法實(shí)際上是調(diào)用的Destroy:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
Free 首先檢查對(duì)象指針是否為nil, 因此更安全. 而 Destroy只是釋放了對(duì)象所分配的內(nèi)存, 并不將對(duì)象指針置為nil, 需要手動(dòng)設(shè)置: AMan = nil;
所以一般這樣做法是較安全的: FreeAndNil(AMan);