@ 与 ^ 运算符

最新推荐文章于 2023-11-21 22:09:19 发布

weixin_34071713

最新推荐文章于 2023-11-21 22:09:19 发布

阅读量261

点赞数

原文链接：https://my.oschina.net/hermer/blog/319638

版权

为什么80%的码农都做不了架构师？>>>

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

转载于:https://my.oschina.net/hermer/blog/319638