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函数返回值是地址}