就像C语言里那样的?

解决方案 »

  1.   

    应该是,请看:
    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;
      

  2.   

    看看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;
      

  3.   

    d983074(d983074) 说的是对的,从以下例子可以看出,那么@a[0]应该就是了数组首地址了。procedure TForm1.Button1Click(Sender: TObject);
    var
      a:Array of integer;
      b,c:pointer;
      d:integer;
    begin
      SetLength(a,10);  for d:=0 to High(a) do a[d]:=d;  b:=@a;
      c:=@(a[0]);
      showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
    end;
      

  4.   

    //动态数组应这样看:
    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;