Hi !
Kleine Änderung spart Berechnung innerhalb der Schleife !
Delphi-Quellcode:
procedure TTest.FillArray(var aArray: tBestehendesArray; aValues: array of integer);
var
TmpLen : integer;
lp : byte;
begin
TmpLen := Length(aArray);
SetLength(aArray,TmpLen+Length(aValues));
for lp:=TmpLen to TmpLen+high(aValues) do
aArray[lp] := aValues[lp];
end;