数组复制的问题？

Question

//A.pas
...
procedure abc();
var
  a:array of integer;
begin
  
end;//b.pas
...
procedure def(var aaa:array of integer);
var
  b:array of integer;
begin
  aaa:=b; //为什么这里提示Incompatible types:'Array' and 'dynamic array'
end;上面出错的地方我用  aaa:=copy(b);也不行，为什么？谢谢！
还有，为什么在DEF过程中对aaa用setlength()也不行？谢谢！
上面两个问题要如何解决？谢谢！

Answer 1

应该是:
aaa := @b;你用的是形参，传的是地址。
下面的例子可以运行：procedure TForm1.Button1Click(Sender: TObject);
var
  aa : array of integer;
begin
  setlength(aa,4);
  aa[0] := 0;
  aa[1] := 1;
  aa[2] := 3;
  aa[3] := 4;
  Show1(aa);
end;procedure TForm1.Show1(var aa: array of integer);
var
  b:array of integer;
  i:integer;
begin
  b := @aa;
  for i:=low(b) to high(b) do
    memo1.Lines.Append(inttostr(b[i]));
end;end.