Zufallszahl mit Ausnahme

[cruiser]

Noch ein kleiner Beitrag zum Thema:

Delphi-Quellcode:

function RandomBeside(const min, max: Integer; const beside: array of Integer): Integer; overload;
var
  i, j: Integer;
  inarray: Boolean;
begin
  repeat
    i := Random(max - min) + min;
    inarray := False;
    for j := 0 to Length(beside) - 1 do
      if beside[j] = i then begin
        inarray := True;
        Break;
      end;
  until (not inarray);
  Result := i;
end;

function RandomBeside(const max: Integer; const beside: array of Integer): Integer; overload;
begin
  Result := RandomBeside(0, max, beside);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  rnd: Integer;
begin
  // Zufalls Zahl zw. 0 und 9 ausser 3,5 und 7
  rnd := RandomBeside(10, [3, 5, 7]);
end;