如果你有一个相当新的Delphi(根据评论的XE7),你可以这样做:
PROCEDURE Test; TYPE TIntArr = TArray<INTEGER>; VAR A1,A2 : TIntArr; BEGIN SetLength(A1,20); SetLength(A2,30); A1:=A1+A2 END;
即。简单的补充。