delphi @ 与 ^ 运算符


本文整理自网络,侵删。

 @ 与 ^ 运算符
//例1:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
p: Pointer;
begin
p := @str; //变量 str 的地址

p := @Form1; //变量 Form1 的地址

p := @TForm1.Button1Click; //过程 TForm1.Button1Click 的地址

p := Addr(str); //同 p := @str;

ShowMessage(IntToStr(Integer(p))); //显示
end;

//例2:
procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2: Integer;
pi: ^Integer;
begin
i1 := 6;
pi := @i1;
if pi<>nil then i2 := pi^;
//if Assigned(pi) then i2 := pi^; //等价与上一句
ShowMessage(IntToStr(i2)); //返回:6
end;

相关阅读 >>

Delphi 几个dataset数据导出到xml word excel txt html的函数

Delphi生成guid

Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息

Delphi hexstrtobytes

Delphi system.sysutils.tmarshaller 与 system.tmarshal

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi randomfrom 随机返回字符串数组avalues中的一个元素

Delphi 如何判断当前网卡是物理网卡

Delphi 删除cookies及上网记录

Delphi 多桌面切换

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...