如何串联2个数组？

Question

它们是否可以帮助连接2个数组？我的意思是一个将array1的所有元素添加到array2末尾的助手吗？

  array1: array of integer;
  array2: array of integer;

Answer 1

如果您有一个相当新的Delphi（根据评论使用XE7），则可以这样做：

PROCEDURE Test;
  TYPE
    TIntArr     = TArray<INTEGER>;

  VAR
    A1,A2       : TIntArr;

  BEGIN
    SetLength(A1,20);
    SetLength(A2,30);
    A1:=A1+A2
  END;

即。简单添加。