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

2021-03-31 23:24

阅读:603

标签: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;

转自:https://blog.csdn.net/diligentcatrich/article/details/7077294

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

标签:blog   cli   for   一个   区别   phi   btn   sam   end   

原文地址:https://www.cnblogs.com/railgunman/p/9247849.html


评论


亲,登录后才可以留言!