2 DynArrays zusammenfuegen

[Scooty78]

versuchs mal so:

Delphi-Quellcode:

 setlength(array3,(length(array1)+length(array2)));

  x := -1;
  for I := 0 to length(array1) - 1 do
    begin
      inc(x);
      array3[x] := array1[i];
      if i <= length(array2)-1 then
      begin
        inc(x);
        array3[x] := array2[i];
      end;
    end;

  if length(array2)> length(array1) then
    begin
      for I := length(array1)-1 to length(array2) - 1 do
        begin
          inc(x);
          array3[x] := array2[i];
        end;
    end;

Gruß
Scooty