Delphi 动态数组合并

TIntArray = array of Integer;

function MergeArray(const ArrayA, ArrayB: TIntArray): TIntArray;

var

  ilen: Integer;

begin//Copy(intArray, iFromPos, Count) 选取拷贝,或者全部拷贝  Copy(intArray)

  Result := ArrayA;

  if Length(ArrayB) > 0 then begin

    ilen := Length(ArrayB) * sizeof(ArrayB[0]); //求数组内存长度,记住是内存长度

    SetLength(Result, Length(ArrayA) + Length(ArrayB));//设置数组长度

    CopyMemory(@Result[Length(ArrayA)], ArrayB, ilen); //把数组2复制到数组1后面,@Result[Length(valueA)]目标数组的追加起始位置

  end;

end;