教程-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;

备注：