正文
教程-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;
备注: