Addr 函数 获取对象指针

procedure TForm1.FormCreate(Sender: TObject);
var
  Str: string;
  pStr: PString;
begin
  Str := 'Delphi 2007';
  pStr := @Str;       {用 @ 获取指针}
  ShowMessage(pStr^); {Delphi 2007}

  Str := 'Delphi 2008';
  pStr := Addr(Str);  {Addr 和 @ 的作用是一样的, 都是获取指针}
  ShowMessage(pStr^); {Delphi 2008}


  {获取 Form1 的指针}
  ShowMessage(IntToStr(Integer(@Self)));          {1244648; 这是动态的}
  ShowMessage(IntToStr(Integer(Addr(Self))));     {1244648}

  {获取 Form1 的 FormCreate 过程的指针}
  ShowMessage(IntToStr(Integer(@OnCreate)));      {4570956}
  ShowMessage(IntToStr(Integer(Addr(OnCreate)))); {4570956}

  {
    如果要获取指针的对象的表达式太复杂, 用 @ 就不好使了;
    这时只能使用 Addr, 我以前碰到过这种情况, 今天想不起来了...
  }
end;