@ 与 ^ 运算符

最新推荐文章于 2025-05-08 22:48:07 发布

aroc_lo

最新推荐文章于 2025-05-08 22:48:07 发布

阅读量783

点赞数

分类专栏： DELPHI编程文章标签： integer

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

本文通过两个示例介绍了Delphi中如何使用指针来获取变量和过程的地址，并展示了如何利用指针进行地址赋值及间接访问变量的内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//例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;