New[Pointer]

来源:互联网 发布:centos输入法 编辑:程序博客网 时间:2024/06/06 02:37
var  pa:^Integer;  pstr:^string;  a:integer;  str:String;begin    a:=20110806;    pa:=@a;    ShowMessage(IntToStr(pa^));    str:='Hello This is TestProc;    pstr:=@str;    ShowMessage(pstr^);    ShowMessage(pstr^);end; 
原创粉丝点击