Array mit mehreren Strings auf einmal füllen

[patti]

Hab hier grad mal ne Routine geschrieben, die ein String-Array mit Werten befüllt:

Delphi-Quellcode:

procedure FillArray(var AArray : array of string; const AValues : array of string);
var i1 : integer;
var i2 : integer;
begin
     //--
     i1 := Low(AArray);
     i2 := Low(AValues);
     //
     while (i1 <= High(AArray)) and (i2 <= High(AValues)) do
     begin
          AArray[i1] := AValues[i2];
          //
          i1 := i1 + 1;
          i2 := i2 + 1;
     end;
end;

Beispiel-Aufruf:

FillArray(ZuBefuellendesArray,['5','5','4']);

Am besten ist es dabei, wenn beide Arrays gleich groß sind. Man kann das ganze auch mit einem Dynamischen Array machen, dann könnte man in der Routine vorher per SetLength die Länge des zu befüllenden Arrays setzen und an die Anzahl der zu speichernden Werte anpassen.

mfg