Array mit Zahlen füllen

[Dax]

Delphi-Quellcode:

type
  TGewichtung = array[1..9] of Integer;

Procedure SetArray(var arr: TGewichtung; values: array of Integer);
var i: Integer;
begin
  for i := Low(arr) to High(arr) do
    if i >= Length(values) then
      arr[i] := 0
    else
      arr[i] := values[i-1];
end;

SetArray(Gewichtung, [1,2,3,4,5,6,7,8,9]);