动态数组 能赋给 指针 吗?

Question

自己赋值的话,好像提示类型不匹配.

Answer 1

var
  R: array of integer;
  P:Pinteger;
begin
  setlength(R,2);
  r[0]:=1;
  r[1]:=2;
  p:=@r[0];
  Memo1.Text:=inttoStr(p^);
end;

Answer 2

同意linzhengqun.p:=@r[0];与  p:=pinteger(r); 等效..//--------------------------------------
var
  r:array of integer;
  p:PInteger;begin
  SetLength(r,3);
  r[0]:=123;  p:=pinteger(r);
  ShowMessage(IntToStr(p^));

Answer 3

TTempArr = Array of Integer;
pArr = ^TTempArr;var
  aArr: TTempArr;
  apArr: pArr;
begin
  SetLength(aArr, 2);
  aArr[0] := 0;
  aArr[1] := 1;
  apArr := @aArr;
  ShowMessage(IntToStr((apArr^)[0]));
  ShowMessage(IntToStr((apArr^)[1]));
end;