Du könntest die Daten effektiver (=schneller) mit der
Move Prozedure bewegen.
Aber Achtung: wäre das Array von Typ: array of string; wäre dies verboten.
Deine Prozedure könnte so aussehen (ungetestet!!!):
Delphi-Quellcode:
procedure AppendArray(var aArray: TIntegerArray; aValues: TIntegerArray);
var
TmpLen : integer;
lp : byte;
begin
TmpLen := Length(aArray);
SetLength(aArray,TmpLen+Length(aValues));
Move(aValues[0], aArray[TmpLen], Length(aValues)*sizeof(Integer));
end;
Bei Verwendung von Move muss man höchste Vorsicht walten lassen, damit kein Speicher "zerschossen" wird.
PS: ich habe den Namen der Procedure geändert; ist so deutlich sprechender