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;
微信扫一扫
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;
相关推荐