指標的使用

procedure TForm1.Button1Click(Sender: TObject);
var
  P: ^Integer; //P為一個指標，指標內存變數為Integer
  X: Integer;
begin
  P := @X; //用@ 符號把另一個相同類型變數的地址賦給它
  // 改變此位址的值有兩種方法
  X := 10;
  P^ := 20;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  P: ^Integer;
begin
  // initialization
  New (P); //動態分配內存
  // operations
  P^ := 20;
  ShowMessage (IntToStr (P^));
  // termination
  Dispose (P); //記得在此釋放喔
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  P: ^Integer;
begin
  P := nil; //空指標如果還要顯示，那要加nil，否則會出現"一般保護錯"（GPF）的錯誤
  ShowMessage (IntToStr (P^));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  P: ^Integer;
  X: Integer;
begin
  P := @X;
  X := 100;
  if P <> nil then  //所以結論用此來顯示，會比較安全
    ShowMessage (IntToStr (P^));
end;