Überprüfen, ob Zahl in unregelmäßigen Bereichen

[xZise]

Okay dummerweise hätte ich noch das Const-Array belegen müssen (Es wäre dann ein Var-Array).... Aber so funktionierts:

Delphi-Quellcode:

  Weightings := 0;
  for i := 0 to High(Weighting) do begin
    if (Durchschnitt > Weightings) and (Durchschnitt <= Weightings + Weighting[i]) then begin
      lEntscheidung.Caption := getSelectedItem(i + 1, lwEntscheidungen).Caption;
      break;
    end;
    Weightings := Weightings + Weighting[i];
  end;

Und es tut seinen Dienst.