0
点赞
收藏
分享

微信扫一扫

New[Pointer]

罗蓁蓁 2023-08-31 阅读 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;

举报

相关推荐

0 条评论