關(guān)于對(duì)象內(nèi)存的分配及回收

不知道有人對(duì)dl這個(gè)寄存器放在這里有什么想法沒有，沒有的話就想想，想好了，您就好了。實(shí)際上在下面的代碼（一）之前，有這樣一行代碼 MOV dl， 1，那么這樣說，為什么要這樣，原因，不是很簡單的簡單，代碼重復(fù)利用。關(guān)于此處dl寄存器的使用，Delphi的幫助中有一段介紹，耐心點(diǎn)，自己去找，找到了，您就是高手了。這就是學(xué)習(xí)，不，學(xué)漁，而不是要魚。borland是這樣說的，“我用dl寄存器來存放一個(gè)旗標(biāo)，如果這個(gè)值為1，那么我就創(chuàng)建對(duì)象，否則，我不會(huì)創(chuàng)建對(duì)象?！比绻悬c(diǎn)朦朧，那就反復(fù)想想。如果還沒有睜開眼，那么，就看看后面這一段代碼（二），別說您沒有找到，咳，怎么回事兒，我老是再說廢話，保證不說了。

｛代碼（一）

test dl, dl
jz +$08
add esp, -$10
call @ClassCreate ｝

｛／／／代碼（二）

PRocedure Tapplication.CreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
／／／／／／／  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
／／／／／／／   Instance.Create(Self);
  except
    TComponent(Reference) := nil;
    raise;
  end;
  if (FMainForm = nil) and (Instance is TForm) then
  begin
    TForm(Instance).HandleNeeded;
    FMainForm := TForm(Instance);
  end;
end;
｝

這樣的話，就是說，Delphi調(diào)用代碼（一），是在第一次調(diào)用創(chuàng)建類的實(shí)例的時(shí)候，然后，如果，誰還需要調(diào)用Create方法，我就，不，是編譯器就這樣MOV dl, 0，這樣代碼（一）的判斷0跳轉(zhuǎn)指令就會(huì)到該去的地方了，（怎么又來廢話了，最后一次，我保證。）實(shí)際上，這里的Create方法只是一個(gè)普通的方法，而且，您應(yīng)該還注意到，第一個(gè)調(diào)用Create方法或者NewInstance方法，都是類在發(fā)出這個(gè)消息，（注意這個(gè)消息不是Windows消息，此消息非彼消息，哈哈，又來了廢話，真的最后一次了，是真的。如果不理解這里的消息的話，請(qǐng)認(rèn)真學(xué)寫面向?qū)ο蠛徒５闹R(shí)。）而后面調(diào)用Create方法卻是建立起來的對(duì)象，Instance.Create(Self);好好想想，當(dāng)然dl寄存器的值就變了。

好了，沒有什么時(shí)間了，最后補(bǔ)充一點(diǎn)，關(guān)于旗標(biāo)（臺(tái)灣的翻譯方法，我認(rèn)為這個(gè)詞不錯(cuò)，建議您也使用它，省得以后我多費(fèi)口舌）和這個(gè)dl寄存器的使用說明，應(yīng)該說不會(huì)有什么變化了，仔細(xì)想想，Delphi從1到6大方向上就沒有變過，順便也證明了Delphi的HB設(shè)計(jì)師是個(gè)人物啊，當(dāng)然，我是沒法比了。哈哈，又來了，好，我還是不說了。哦，最后，說一句，TObject.Create方法決不是一個(gè)空方法，記住，然后，去想。

好了，別的東西，麻煩您親自去看，那樣的話，您才有很多很多的收獲。

“快滾，我要去看，去想，不要你的廢話！”有人在笑！：）

bye

編譯器在為對(duì)象分配內(nèi)存時(shí)，所提供的支持就是在調(diào)用構(gòu)造函數(shù)之前插入這幾行匯編代碼：

test dl, dl
jz +$08
add esp, -$10
call @ClassCreate // 注意這行代碼

以上代碼的最后一行代碼調(diào)用的是system.pas文件的第8949行的_ClassCreate函數(shù)（以Delphi 6為準(zhǔn)），該函數(shù)具體為每個(gè)對(duì)象分配合適的內(nèi)存。內(nèi)存分配完成后是調(diào)用類的構(gòu)造函數(shù)以初始化數(shù)據(jù)成員。之后，編譯器會(huì)再插入以下幾行匯編代碼：

test dl, dl
jz +$0f
call @AfterConstruction
pop dWord ptr fs:[$00000000]
add esp, $0c

其中主要工作是調(diào)用每個(gè)對(duì)象實(shí)例的AfterConstruction，這個(gè)調(diào)用在Delphi中沒有用，它的存在是為C++Builder所保留的。
同樣，析構(gòu)對(duì)象時(shí)，首先要調(diào)用類的析構(gòu)函數(shù)以釋放對(duì)象申請(qǐng)的資源。之后是回收對(duì)象本身所占內(nèi)存空間，這件工作是由編譯器在調(diào)用析構(gòu)函數(shù)后，插入以下的匯編代碼來完成的：

call @BeforeDestruction
test dl, dl
jle +$05
call @ClassDestroy

這些代碼所做的工作與構(gòu)造對(duì)象分配內(nèi)存時(shí)所做的是對(duì)應(yīng)的，主要是對(duì)system.pas中第8997行的_ClassDestroy函數(shù)的調(diào)用。

構(gòu)造函數(shù)與析構(gòu)函數(shù)

定義構(gòu)造函數(shù)使用Constructor關(guān)鍵字，按慣例，構(gòu)造函數(shù)名稱為Create（當(dāng)然也可以用其他名稱，但那絕非優(yōu)良的設(shè)計(jì)?。?。如：

type
 TMyFamily = class  // 為你的家庭定義的類
 Private
  FMyFatherName : String;  // 你父親的名字
  FMyMotherName : String;  // 你母親的名字
  …… // 你家庭中的其他成員
 Public
  Constructor Create(strFatherName, strMotherName : String);
  …… // 其它方法
 End;

也許你會(huì)問，如果我沒有為我的類提供構(gòu)造函數(shù)，它的對(duì)象能否被建立呢？答案是：可以。原因前面已經(jīng)說了，對(duì)象本身所占內(nèi)存的分配是由編譯器完成的。而且由于Object Pascal中，所有類（除了TObject類本身）都是從TObject類派生，因此編譯器會(huì)調(diào)用TObject.Create()構(gòu)造函數(shù)，只是這個(gè)函數(shù)是一個(gè)空函數(shù)，它并不會(huì)對(duì)TMyFamily類的數(shù)據(jù)成員（FMyFatherName、FMyMotherName）初始化，它們會(huì)被自動(dòng)清為空字符串（即''），因?yàn)門Object.Create()根本就不認(rèn)識(shí)你的父、母親！

創(chuàng)建對(duì)象時(shí)則直接調(diào)用構(gòu)造函數(shù)，形式如下：

MyFamilyObject := TMyFamily.Create('Zhang', 'Li');

定義析構(gòu)函數(shù)使用Destructor關(guān)鍵字，按慣例，析構(gòu)函數(shù)名稱為Destroy。如：

type
 TMyClass = class
 Public
  Destructor Destroy(); override;
 End;

之所以在析構(gòu)函數(shù)聲明最后加上override聲明，是因?yàn)楸ＷC在多態(tài)的情況下對(duì)象能正確被析構(gòu)（關(guān)于多態(tài)，將在2.4節(jié)中詳述）。如果不加override關(guān)鍵字，編譯器會(huì)給出類似"Method 'Destroy' hides virtual method of base type 'TObject'"的警告提示。警告的意思是你定義的Destroy隱藏了基類的虛方法TObject.Destroy()，那樣的話，在多態(tài)的情況下就無法正確析構(gòu)對(duì)象了。

注意：析構(gòu)函數(shù)都需要加override聲明。

同樣，如果在你的類中沒有特殊的資源需要被釋放，那么你也可以不定義析構(gòu)函數(shù)。只是，在析構(gòu)對(duì)象的時(shí)候，應(yīng)該調(diào)用對(duì)象的Free()方法而不是直接調(diào)用Destroy()。
MyFamilyObject.Free();
這是因?yàn)樵贔ree()方法中會(huì)判斷對(duì)象本身是否為nil，如果不為nil才調(diào)用對(duì)象的Destroy()，以增加安全性。既然有這樣的更安全的做法，當(dāng)然沒有理由不這么做了。
注意：永遠(yuǎn)不要直接調(diào)用對(duì)象的Destroy()，而應(yīng)該是Free()。
由此可以得出結(jié)論，在Object Pascal中你只需關(guān)注對(duì)象所申請(qǐng)的資源的分配與釋放，而不必關(guān)心對(duì)象本身所占空間！