作者：高張遠(yuǎn)矚(HiLoveS)

博客：http://www.cnblogs.com/hiloves/

轉(zhuǎn)載請保留該信息

在初學(xué)Delphi時，有一個疑問：如何判斷對象已創(chuàng)建。在論壇上問了不少人，回答有“用Assigned”和“沒法判斷”兩種。我開始在代碼中用Assigned，卻發(fā)現(xiàn)這個函數(shù)好像不起作用，于是偏向于另一個答案，認(rèn)為“沒法判斷”對象是否創(chuàng)建了。通過一段時間的深入學(xué)習(xí)與思考，感悟到原來兩種答案都對。如果你也有此類疑問就隨我看下去。

疑問1：是否可以判斷對象已創(chuàng)建？

Delphi中的對象是堆分配，分配方式類似鏈表，系統(tǒng)會分配空閑的內(nèi)存給對象，因為這一機制，對象的內(nèi)存地址是不固定的，并可能是不連續(xù)的內(nèi)存塊，并且一旦該對象被銷毀，系統(tǒng)會收回它所占用的內(nèi)存塊，并標(biāo)記為空閑內(nèi)存，如果有需要，系統(tǒng)會將該片內(nèi)存分配給別的對象使用。如果僅憑對象標(biāo)識符指向的那片內(nèi)存中是否有數(shù)據(jù)來判斷該對象是否已創(chuàng)建，顯然是不可行的。因為指向的內(nèi)存區(qū)的數(shù)據(jù)可能是該對象的(對象創(chuàng)建未銷毀)，也可能是別的對象的(該片內(nèi)存被系統(tǒng)重新分配給了別的對象)。

因此，從這點上講你是沒辦法判斷對象是否已創(chuàng)建。但為什么還是有人認(rèn)為并給出了另一個答案呢？

疑問2：為什么有人說Assigned可以用來判斷對象是否已創(chuàng)建？

沒法從內(nèi)存數(shù)據(jù)上判斷，但還有曲線救國的辦法。就是判斷對象標(biāo)識符是否指向某個內(nèi)存地址。test: TObject，test不是對象的本體，它只是對象標(biāo)識符，其本質(zhì)是個指針。這個方法就是，如果這個指針指向一個內(nèi)存地址，則這個對象就創(chuàng)建了。而且事實確實如此，test := TObject.Create，這一句確實賦給了test正確的對象內(nèi)存地址。因此，如果Assigned(test)返回了True，則認(rèn)為test對象已創(chuàng)建了。

我欣喜若狂開始在代碼中用上Assigned后，卻被澆了一盆冷水，Assigned不管用。這是怎么回事？

疑問3：為什么Assigned不起作用？

先來看一段代碼。

Code：
interface
uses
  Dialogs;
type
  TTest = class(TObject)
  public
    procedure Show;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

procedure TTest.Show;
begin
  ShowMessage('Object Show');
end;

constructor TTest.Create;
begin
  ShowMessage('Object Create');
end;

destructor TTest.Destroy;
begin
  ShowMessage('Object Destroy');
end;

procedure Test1;
var
  TestObj1, TestDestroy: TTest;
begin
  if Assigned(TestObj1) then
  begin
    ShowMessage('Assigned True');  //執(zhí)行了
  end;

  TestDestroy := TTest.Create;
  TestDestroy.Destroy;
  if Assigned(TestDestroy) then
  begin
    ShowMessage('Assigned True');  //執(zhí)行了
  end;
end;

按照我們的期待，Test1中的兩個ShowMessage是不應(yīng)該執(zhí)行的。原因就是TestObj1還沒被創(chuàng)建呢，Assigned(TestObj1)應(yīng)該返回False才對，TestDestroy被銷毀了，Assigned(TestDestroy)應(yīng)該返回False才對。但不幸的是，兩個ShowMessage都運行了。Assigned徹底不起作用。

這是怎么回事？原因很簡單，我們一廂情愿的認(rèn)為：當(dāng)聲明一個對象時其指針是指向nil的，當(dāng)銷毀一個對象后其指針自動變?yōu)閚il。呵呵，Delphi可從來沒說過它會這么干。

事實是這樣的，聲明一個全局對象時Delphi會自動將其指向nil，聲明一個局部對象時Delphi會將其指向一個隨機的地址而不是nil，當(dāng)銷毀一個對象時Delphi不會自動對對象標(biāo)識符做什么，原來指哪里銷毀后還是指哪里。

看看全局對象會怎么樣。

Code：
var
  TestObj2: TTest;  //全局對象

implementation

procedure Test2;
begin
  if Assigned(TestObj2) then
  begin
    ShowMessage('Assigned True');  //沒有執(zhí)行
  end;
end;

TestObj2是全局對象，Test2中的ShowMessage沒有執(zhí)行。

如何才能讓Assigned恢復(fù)本來的雄風(fēng)呢？

疑問4：Assigned不起作用，怎么辦？

原因找到就很好解決。

Code:
procedure Test4;
var
  TestObj4: TTest;
begin
  TestObj4 := nil;  //聲明之后，創(chuàng)建之前馬上設(shè)為nil
  if Assigned(TestObj4) then
  begin
    ShowMessage('Assigned True');  //不會執(zhí)行
  end;

  TestObj4 := TTest.Create;
  if Assigned(TestObj4) then
  begin
    ShowMessage('Assigned True');  //執(zhí)行
    TestObj4.Destroy;
    TestObj4 := nil;  //銷毀后馬上設(shè)為nil
  end;

  if Assigned(TestObj4) then
  begin
    ShowMessage('Assigned True');  //不會執(zhí)行
  end;
end;

針對對象的不同生命期，在聲明之后、創(chuàng)建之前和銷毀后馬上設(shè)為nil，讓Assigned恢復(fù)雄風(fēng)。

還有人說可以用“= nil”來判斷，用哪個好呢？

疑問5：“Assigned” PK “= nil”，哪個好？

說來只是個效率問題，你在System.pas中找不到有關(guān)Assigned的代碼，它是Delphi Intrinsic Routines，Delphi內(nèi)部函數(shù)，是由編譯器實現(xiàn)的，因此效率比用“= nil”高。

另：有關(guān)Delphi Intrinsic Routines的詳情請看，這些函數(shù)效率較高

http://docwiki.embarcadero.com/RADStudio/en/Delphi_Intrinsic_Routines

疑問6：穿越了的對象參數(shù)在另一個地方被銷毀會發(fā)生什么情況？

有時候，我們會將一個對象當(dāng)做參數(shù)傳遞到另一個對象中或函數(shù)中，供它們調(diào)用。如果，在創(chuàng)建該對象的函數(shù)中把它銷毀掉，那么穿越到別的對象中的這個對象參數(shù)會怎么樣？

Code:
type
  TTest2 = class(TObject)
  public
    fObj: TTest;
    procedure SetObj(fObj: TTest);
    procedure Show;
  end;

implementation

procedure TTest2.SetObj(fObj: TTest);
begin
  Self.fObj := fObj;
end;

procedure TTest2.Show;
begin
  if Assigned(fObj) then
  begin
    ShowMessage('fObj True');  //執(zhí)行了
    fObj.Destroy;  //重復(fù)銷毀，出錯
  end;
end;

procedure Test9;
var
  TestObj9: TTest;
  Test2Obj: TTest2;
begin
  TestObj9 := TTest.Create;
  Test2Obj := TTest2.Create;

  Test2Obj.SetObj(TestObj9);

  TestObj9.Destroy;
  TestObj9 := nil;

  Test2Obj.Show;  //出錯

  Test2Obj.Destroy;
end;

在這種“傳引用”的方式中，銷毀TestObj9后，Test2Obj中的fObj還是指向銷毀前的內(nèi)存地址，所以Show的代碼出錯了。如果使用Assigned，確實對這種情況無能為力，畢竟它的依據(jù)是對象標(biāo)識符是否指向某個內(nèi)存地址，如果TestObj9在外部被銷毀，它就會判斷失誤。除非使用傳值或復(fù)制對象的方式，我還沒想到有沒有方法解決這一問題。

上述測試代碼下載地址：https://files.cnblogs.com/hiloves/AssignedFreeCode.rar

總結(jié)

以上是生活随笔為你收集整理的Assigned 的迷思的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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