Arrays zusammenfügen

[mimi]

am besten so(Nicht getestet):

Delphi-Quellcode:

procedure AddToArray(var aArray:array of string; const aSoruce:Array of String);
var
  i,c1,c2:Integer;
begin
  c1:=Lenght(aSoruce);
  c2:=Lenght(aArray);
  SetLenght(aArray,c1+c2+1);

  for i:=0 to c1 do begin
    aArray[c2+i]:=aSoruce[i];
  end;
end;

so müsste das eigentlich klappen.