İki byte dizisi nasıl birleştirebilirim ?

[dicle_gsm]

Merhaba arkadaşlar, 

iki tane dinamik dizi birleştirmek istiyorum Delphi 7 ile, 

  bytes: array[0..105] of Byte = (
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00
  );

Burdaki byte dizisini başına eklemek istiyorum 

$5a, $02, $20, $70, $11, $15, $20, $26, 

Delphi de dizi fonksiyonlarında append veya extend diğer programlama dillerindeki gibi yok sanırım, yada ben bulamadım
Herkese teşekürler şimdiden.

[edo]

İk array'in adı bytes, ikinicinin adı bytes2 ise bytes2'yi bytes'ın üstüne eklemek için bytes'ın elementlerinin indekslerini bytes2'nin element sayısı kadar sayısı kadar arttırıp bytes2'nin elemanlarını da en başa kopyalayabilirsiniz.

Generics ile aşağıdaki gibi kendi çözümlerinizi geliştirebilirsiniz:
https://stackoverflow.com/questions/5755...amic-array

[TescilsizUzman]

Merhaba,
bytes: array[0..105] of Byte kısmında sabit olarak 106 adet dizi elemanı rezerve edilmiş. Oysaki, bytes değişkeninde 98 adet dizi değeri atanmış.
Dizi tanımlama ile dizi içerik sayısı uyuşmadığından derleme anında bir hata oluşacaktır. Doğal olarak kod ile sonradan 8 elemanlı bir kümeyi bu diziye eklemek mümkün olmayacaktır.

Çözüm olarak;
 
1- Tanımlama aşağıdaki gibi olmalı, 

var
 bytes: array of Byte;

const
 bytes1: array [0 .. 97] of byte = ($00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

 bytes2: array [0 .. 7] of byte = ($5A, $02, $20, $70, $11, $15, $20, $26);

2- İşlem yapmadan önce SetLength(); metodu ile dizi boyutu set edilmeli,

SetLength(bytes, Length(bytes1) + Length(bytes2));

3- Son olarak, Move procedure'ü veya benzer bir döngü ile bytes1 ve bytes2 içeriğini bytes dizisinde birleştirebilirsiniz.

[SimaWB]

Move ile ilgili burada bir kaç örnek verilmişti.

[dicle_gsm]

Herkese Çok teşekür ederim cevap verdiğiniz için.