指向integer的指针怎样定义和new创建，怎样释放

Question

题

Answer 1

1.關於指針的運用，請看如下代碼
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  pi: ^Integer; //定義一個Integer指針
begin
  i := 1000;
  pi := @i;     //將pi指向i
  ShowMessage(IntToStr(pi^));
end;2.用new申請的空間用Dispose釋放
procedure Dispose(var P: Pointer);

Answer 2

var
  pint:^integer;
  s:string;
begin
 new(pint);
 pint^:=1024;
 s:='pint''s address is :'+inttohex(integer(@pint),8)+#13#10+
    'pint''s save value is :'+inttostr(pint^);
 showmessage(s);
 dispose(pint);
end;

Answer 3

NEW/DISPOSE_____________________
http://lysoft.7u7.net

Answer 4

var p:pint;
//---------
new(p)
dispose(p)