Delphi合并2个动态数组

program MyArray; //数组{$APPTYPE CONSOLE}uses
SysUtils,Windows;{合并2个动态数组}procedure MyFunc2();var
arr1,arr2: TBytes;
len,LastAddr: Integer;begin{设置2个数组长度}
SetLength(arr1, 3);
SetLength(arr2, 3);{给2个数组赋值}
arr1[0] := 65; arr1[1] := 66; arr1[2] := 67;
arr2[0] := 68; arr2[1] := 69; arr2[2] := 70;{设置数组1的长度为2个数组长度之和}
len := Length(arr1);//保存数组1长度
SetLength(arr1, len + Length(arr2));{把数组2复制到数组1后面}
LastAddr := DWORD(arr1)+len;//数组1末尾的指针
CopyMemory(Ptr(LastAddr), arr2, Length(arr2));//把数组2复制到数组1后面
Writeln(StringOf(arr1)); {ABCDEF}end;{main主函数}begin
MyFunc2;
Readln;end.