Delphi中比较两个对象是否一致及地址是否相同

在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;

总结

以上是生活随笔为你收集整理的Delphi中比较两个对象是否一致及地址是否相同的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。