Array[0..x] of Byte in Array of Byte kopieren

[Kostas]

Hallo zusammen,

Move sollte doch in der Lage sein ein statisches Array in ein dynamisches Array zu kopieren oder etwa nicht?
Natürlich muss ich auf die Grenzen achten. Alternativ, ich kopiere Byte für Byte in einer Schleife.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
    cHeaderZumTest: array [0..13] of byte = ($42,
                                             $22,
                                             $1, $43, $72, $71,
                                             $29, $D1, $84,
                                             $0, $41,
                                             $0, $1F, $CC);

var DFProtokoll:TDFProtokoll;
    DataPaketArray:TDataPaketArray;  //type TDataPaketArray = Array of Byte;
begin
  SetLength(DataPaketArray,SizeOf(cHeaderZumTest));

  Move(cHeaderZumTest, DataPaketArray, SizeOf(DataPaketArray));  <<DataPaketArray hat nun 131000 leere Elemente
  DFProtokoll := TDFProtokoll.Create(DataPaketArray); //Der constructor erwarten ein TDataPaketArray

end;

Gruß Kostas