Hallo
Ich verwende folgende Funktion um ein bestendes Array zu erweitern:
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:=0 to high(aValues) do
aArray[TmpLen+lp] := aValues[lp];
end;
Gibt es dafür noch eine elegantere Möglichkeit?