Da kann man danamische Array addieren, so wie man es bei String auch gewohnt ist.
Dies scheint schon recht gut zu funktionieren.
Code: Alles auswählen
procedure Ausgabe(a: array of byte);
var
i: integer;
begin
for i := 0 to Length(a) - 1 do begin
Write(a[i]: 4);
end;
WriteLn();
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c: array of byte;
d: array[0..2] of byte = (6, 7, 8);
begin
a := [1, 2, 3];
Ausgabe(a);
b := a + d + [123, 222];
Ausgabe(b);
c := b + b;
Ausgabe(c);
// d := [5, 6, 7];
end;
Hier macht er noch einen Fehler, "d" wird ignoriert, in der Ausgabe sehe ich nirgends 5, 6 oder 7.
Code: Alles auswählen
b := a + d + [123, 222];
Dies wird gar nicht kompiliert, anscheinend geht dies bei statischen Arrays (noch ?) nicht.
Code: Alles auswählen
d := [5, 6, 7];