指针相关的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var a: array[1..100] of integer;
ptr:^integer;
i:integer;
begin
ptr:=@a;
for i:=0 to 100 do
a[i]:=i;
inc(ptr,2);
showmessage(inttostr(ptr));？？？？？？//想显示a[3]
end;end.谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[1..100] of integer;
  ptr:^integer;
  i:integer;
begin
  ptr:=@a;
  for i:=1 to 100 do
    a[i]:=i;
  inc(ptr,2);
  showmessage(inttostr(ptr^));
END;

Answer 2

如果定义了一个指针ptr，那么ptr表示指针所指向的内存地址，而ptr^表示内存所存储的实际内容

Answer 3

showmessage(inttostr(ptr^));//想显示a[3]