Eine Zufallszahl mit Bereichsangabe erzeugen
Um einen Zufallsbereich anzugeben, mit einem Minimal und einem Maximalwert kann man diese Funktion benutzen:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| function RandomRange(min, max: integer): integer; begin result := 0; if min > max then exit; result := random(max - min + 1) + min; end;
procedure TForm1.Button1Click(Sender: TObject); begin edit1.text := inttostr(randomrange(12, 55)); end;
Initialization randomize; |
Bei diesem Beispiel können also alle Zahlen von einschließlich 12 - 55 herauskommen, wer die 12 ausschließen will, muss das
+ 1 hinter
max - min entfernen.
Moderiert von jasocul: Beitrag geprüft am 07.04.2006
[meta]Random Zufallszahl Max Min Maximum Minimum[/meta]