delphi - 複数の TBytes 配列を組み合わせる最良の方法

Question

TBytes配列を結合する最良の方法は何ですか?

すべての配列は同じサイズです。の内容を の最後、Array2の最後などに追加したい。Array1Array3Array2

Answer 1

2つをマージするには、2つの個別の全長であるTBytes3分の1を割り当ててから、両方からバイトをコピーする必要があります。例えば：TBytesTBytes

var
  arr1, arr2, merged: TBytes;
begin
  ...
  SetLength(merged, Length(arr1) + Length(arr2));
  if arr1 <> nil then Move(arr1[0], merged[0], Length(arr1));
  if arr2 <> nil then Move(arr2[0], merged[Length(arr1)], Length(arr2));
end;