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

资料说明：

1.http://blog.csdn.net/diligentcatrich/article/details/7077294

 

说明：

 

实例代码：

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;

  

备注：