Hi,
ich habe mal nachgeguckt, ab der Version Delphi 6.0 gibt es eine
Funktion, mit der du den Bereich der Zufallszahlen eingrenzen kannst!
Dafür musst du aber noch die
Unit "Math" einbinden!
Hier einmal die Syntax und die Erklärung!
Code:
function RandomRange(const AFrom, ATo: Integer): Integer;
Beschreibung:
RandomRange gibt einen zufälligen Integer-Wert im Bereich von AFrom bis ATo zurück (inklusive). RandomRange funktioniert auch mit negativen Bereichen (wenn AFrom größer als ATo ist).
Um den Zufallszahlengenerator zu initialisieren, müssen Sie vor dem Aufruf von RandomRange die Prozedur Randomize aufrufen oder der Variable RandSeed einen Wert zuweisen.
Gruß Marc