资料说明:
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;
备注:
时间: 2024-08-01 10:25:18