标签：实例代码 proc blog send 比较 logs tca span div
资料说明：
1.http://blog.csdn.net/diligentcatrich/article/details/7077294
说明：
实例代码：
1 procedure TForm1.btn1Click(Sender: TObject); 2 var 3 p1: Pointer; 4 p2: Pointer; 5 begin 6 if TObject(btn1) = TObject(btn2) then 7 ShowMessage(‘The same as‘) 8 else 9 ShowMessage(‘Dfferent‘); 10 p1 := @btn1; 11 P2 := @btn2; 12 if p1 = p2 then 13 ShowMessage(‘The same as‘) 14 else 15 ShowMessage(‘Dfferent‘); 16 end;
备注：
标签：实例代码 proc blog send 比较 logs tca span div
原文地址：http://www.cnblogs.com/FKdelphi/p/7278803.html
