array addieren

[trifid]

Wie kann man 2 array einfach addieren?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
   var a : array[1..3] of integer;
   var b : array[1..2] of integer;
   var c : array[1..5] of integer;
begin
   a[1] := 1;
   a[2] := 2;
   a[3] := 3;

   b[1] := 5;
   b[2] := 9;

   c := a + b; //  in c sollte dann [1,2,3,5,9] stehen
end;

a) ich möchte keine Schleifen verwenden

Delphi-Quellcode:

for n := 0 to High (a) do
   c[n] := a[n];
for n := High (a) to High (a) + High (c) do
   c[n] := b[n];

b) Array a und Array b können auch ein dyn.Array sein

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
   var a : array of integer;
   var b : array of integer;
   var c : array of integer;
begin
   SetLength (a, 3);
   a[0] := 1;
   a[1] := 2;
   a[2] := 3;

   SetLength (b, 2);
   b[0] := 5;
   b[1] := 9;

   SetLength (c, High (a) + High (b));
   c := a + b; //  in c sollte dann [1,2,3,5,9] stehen
end;

irgendeiner eine Idee ?