Array zusammenhängen

[Ferber]

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;