delphi - 组合多个 TBytes 数组的最佳方式

Question

组合 TBytes 数组的最佳方式是什么？

所有数组的大小相同。我希望将 Array2 的内容添加到 Array1 的末尾，将 Array3 添加到 Array2 的末尾，等等。

Answer 1

要将两个 TBytes 合并在一起，您必须分配第三个 TBytes，它是两个单独 TBytes 的总长度，然后复制两者中的字节都进入其中。例如:

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;