Meilleure façon de combiner plusieurs baies TBytes

Question

Quelle est la meilleure façon de combiner TBytes baies?

Tous les tableaux sont de la même taille. Je veux que le contenu de Array2 soit ajouté à la fin de Array1, Array3 à la fin de Array2, et ainsi de suite.

Answer 1

Pour fusionner deux TBytes ensemble, vous devez allouer un troisième TBytes qui est la longueur totale des deux TBytes individuels, puis copiez les octets des deux à l'intérieur. Par exemple:

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;