Showmessage_Pointer

var i: string; p: Pinteger; begin i :='fans'; p := @i; showmessage(inttostr(integer(p))); showmessage(string((p)^)); //showmessage(string(Pinteger(p)^)); end; {integer函数返回值是地址的内容 pinteger函数返回值是地址}