デストラクタクラス再び

Question

可能性の重複：
Destructor class in TObject and NIL Delphi

私はTaが

クラスを持っている皆さん

ために別の問題を持っていますButton1を押すと、次のコードを実行しています

var a,b:TA; 
begin 
    a:=Ta.Create; 
    b:=a; 
    a.i:=30; 

    FreeAndNil(a); 

    if (a = NIL) then ShowMessage("a is nil"); 
    if (b=NIL) then ShowMessage("b is nil"); 

end; 

両方のインスタンスが無効化されているのは、NILだけです。私はbが空である（破壊された）かどうかを知るためにどのように書きますか。それは私に

a is nil 
b is nil 

を書く必要がありますように、どのように私は、コードを変更souldだから私の質問は、私はdestoryedインスタンスが

Answer 1

あなたはこれを使用すると、効果的に他の上に1を重ね、同じメモリ位置に存在するものとしてb変数を扱うようにコンパイラに指示することができますb: Ta absolute a;
を宣言することができます。

procedure TForm1.Button1Click(Sender: TObject); 
var a: Ta; 
    b: Ta absolute a; 
begin 
    a := Ta.Create; 
    b := a; 
    a.i := 1; 
    FreeAndNil(a); 
    if (a = NIL) then ShowMessage('a is nil'); 
    if (b = NIL) then ShowMessage('b is nil'); 
end; 

ここは有用な記事です：Absolute (for) Beginnersです。

Answer 2

がmy previous answer引用であるポインタBの場所にあるかどうかを知るために行うべきかです：

を

変数aは、nilが割り当てられている場合にのみ、nilになります。これはコードにa := nilが必要であることを意味しますが、これは現在欠落しています。

無料ですTaクラスのインスタンスで動作するちょうどメソッドです。無料は、aが指し示すインスタンスを破棄します。 の値はaと同じで、今度は一度だけTaインスタンスだったメモリアドレスを指しています。

FreeAndNil(a)を使用すると、変数が指し示すオブジェクトを同時に破棄し、変数を指し示すことができます。

これらの同じ規則はあなたのb変数に適用されます。

bポイントを対象に、あなたがオブジェクトを解放し、あなたはとてもbまだかつてのメモリアドレスを指し、bの値を触れないでくださいTaオブジェクトです。

FreeAndNil(a)とすると、オブジェクトaが破棄され、aにネイル化されます。この間、オブジェクトbが破壊されましたが、bの値は変更されません。

ソリューション：比較として

FreeAndNil(a); 
b := nil; 

：

ランダム都市で核兵器を撃つと都市があなたの世界ではまだ存在していることに驚かれること。地球儀が更新されていない場合、旅行者は自分の目的地が存在しないことをどのように知っていますか？