Delphi合并2个动态数组

要点:

1.Ptr函数至关于Pointer，强制转换为指针

2.CopyMemory是内存复制，把第二个参数，赋值到第一个后面

 

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.