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
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so