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
...
...