^,@,Pointer为什么会出错。

Question

Var
  Pint :^integer;
  x    : integer;
begin
  Pint^ := 12;
  x     := Pint^;
  ShowMessage(inttostr(x));//出错了
end;
-----------------------------------------
请教各位。

Answer 1

感觉没什么错误啊，要不你改成：ShowMessage(IntToStr(Pint^));

Answer 2

这样是一样的......  Pint^ := 12;
  showmessage(inttostr(pint^));看上去是好的，但确实有问题。大虾伸手呀。

Answer 3

var Pint : ^Integer并没有给Pint分配空间，必须 先 New(Pint)

Answer 4

但是如果你采用
   X := 12
   Pint = @X 就不用给Pint分配空间了， Pint直接指向了12的地址

Answer 5

不错
Var
  Pint :^integer;
  x,y  : integer;
begin
  X := 12;
  pint := @X;
  y := pint^;
  showmessage(inttostr(y));
12