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使用cef4Delphi制作chromium谷歌内核浏览器

Delphi �c 使用createoleobject后释放olevariant

Delphi 调用win32 api操作串口

Delphi 双击关闭pagecontrol中的一个分页

Delphi 62 进制的简单实现

Delphi自有的md5函��

winapi 字符及字符串函数(9): lstrcat - 合并字符串

Delphi 解决Delphi indy10下 utf8码转换的问题

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi win32，win64用于单/多线程计数素数的整数性能比较

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

转载请注明出处：木庄网络博客 » delphi @ 与 ^ 运算符