在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
资料说明: 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;
备注:
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论