//动态数组应这样看:
var
a:array of integer;
b,c:pointer;
begin
setlength(a,10);
b:=a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;
看看b, c是否一样
var
a:array of integer;
b,c:pointer;
begin
setlength(a,10);
b:=@a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;
应该是,请看:
procedure TForm1.Button1Click(Sender: TObject);
var
a:Array[0..10] of integer;
b,c:pointer;
begin
b:=@a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;