下列指针理解得对吗？

Question

var
  P: ^Integer;
  X: Integer;
begin
  P := @X;
  // change the value in two different ways
  X := 10;
  P^ := 20;  P的地址值=X的地址值
X的值=10
最后，指针P地址存放的内容为20

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  P: ^Integer;
  X: Integer;
begin
  P := @X;
  // change the value in two different ways
  X := 10;
  ShowMessage(IntToStr(X));
  P^ := 20;
  ShowMessage(IntToStr(X));
end;这样不就知道了吗???