PInteger怎么用？

Question

用之前是不是先New一下 以分配空间 不懂的说 谁能举个例子说明一下 谢谢了
比如我用
var pi : PInteger;
begin
    ...
    function(param1, pi, ...) ...
    ...  

Answer 1

var
  a:pinteger;
  b:Integer;
begin
  new(a);
  a^:=1;
  showmessage(inttostr(a^));
  b:=34;
  a^:=b;
  ShowMessage(inttostr(a^));
  Inc(a^);
  b:=a^;
  Showmessage(inttostr(b));
end;

Answer 2

少了一句，最后应该Dispose(a);