关于指针的问题

Question

  var
    P: PWord;
    Tmp: Word;
  begin
    Tmp := 100;
    P := @Tmp;   //假如该指针为1234       
  end;         
  如何通过这个地址1234访问指针所指向的数据

Answer 1

showmessage(inttostr(p^))或者是showmessage(inttostr(p))

Answer 2

自己搞定，上面没理解意思
var
  P: PWord;
  Tmp: Word;  tmpAdr: DWord;
begin
  Tmp := 100;
  tmpAdr := DWord(@Tmp);
  P := PWord(tmpAdr);
  ShowMessage(IntToStr(P^));
end;