Zufallszahlen im Bereich von [X..Y]

[sakura]

Folgende Funktion liefert Zufallszahlen im Bereich von VON bis einschließlich BIS zurück.

Delphi-Quellcode:

function Zufallszahl(Von, Bis: Integer): Integer; 
begin 
  Result := Random(Succ(Bis - Von)) + Von; 
end;

Um die Funktion wirklich zufällige Zahlen zurückliefern zu lassen, sollte genau einmal im Code (zum Beispiel bei Application Start) die Funktion Randomize aufgerufen werden

...:cat:...