Delphi中比較兩個對象是否一致及地址是否相同[轉]

標籤：blog   cli   for   一個   區別   phi   btn   sam   end   

在delphi中，C#也是如此，對象的地址與物件變數(引用)的地址不是同一個概念。要加以區別。

 

procedure TForm1.btn1Click(Sender: TObject);

var
    p1:   Pointer;
    p2:   Pointer;
begin
    if   TObject(btn1)   =   TObject(btn2)   then   ShowMessage( ‘The   same   as ‘)
    else   ShowMessage( ‘Dfferent ‘);
    p1   :=   @btn1;
    P2   :=   @btn2;
    if   p1   =   p2   then     ShowMessage( ‘The   same   as ‘)
    else   ShowMessage( ‘Dfferent ‘);
end;

轉自：7077294

Delphi中比較兩個對象是否一致及地址是否相同[轉]