Array beschreiben wie ein Set?

[Sharky]

Hai ihr,

ich habe hier auch noch eine Lösung. Diese sollte auch laufen wenn das "Ziel-Array" entweder dynamisch oder statisch ist

Delphi-Quellcode:

procedure FillArray(var aArray: TMyArray; aValues: array of Variant);
var
  NdxDestination: Integer;
  NdxSource: Integer;
begin
  NdxDestination := Low(aArray);
  NdxSource := Low(aValues);
  repeat
    aArray[NdxDestination] := aValues[NdxSource];
    Inc(NdxDestination);
    Inc(NdxSource);
  until NdxDestination = Succ(High(aArray));
end;

procedure TDemoForm.btn_testClick(Sender: TObject);
var
  myArray: TMyArray;
begin
  FillArray(myArray, [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]);
end;