Entwickler-Ecke :: Thema anzeigen - Zufallszahlen zwischen einem bestimmten Bereich erzeugen

ninja - So 11.01.04 19:50
Titel: Zufallszahlen zwischen einem bestimmten Bereich erzeugen

hallo, im moment erzeuge ich zufallszahlen mit einer konstante.

Delphi-Quelltext

1:
2:
3:
4:
5:

const                
   ZufallsBereich = 100000;        
begin
   edit1.text:=IntToStr(Random(Zufallsbereich));    
end;

ich möchte aber das die zufallszahl zwischen z.B. 8000 und 100000 liegt.
wie bekomme ich das hin?
und gibt es auch die möglichkeit mit zahlen und buchstaben zu mischen??
thx im vorraus
gruß ninja

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt

CenBells - So 11.01.04 19:54

hallo,

eine einfache varianta zum mischen mit buchstaben ist mir nicht bekannt. Und um Zahlen in einem Bereich zu generieren musst du die bereichsgrenzen anders wählen.

also, beispielsweise so

Delphi-Quelltext

1:
2:

LNr := random(Zufallsbereich - 8000);
LNr := LNr + 8000;

Gruß
KEn

toms - So 11.01.04 19:59

Hi,

Entweder verwendest du die fixfertige RandomRange() Funktion
von der Math Unit oder so was:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

const
  RANGE_FROM = 8000;
  RANGE_TO =100000;
begin
  Randomize;
  Edit1.Text:= IntToStr(Random(RANGE_TO - RANGE_FROM) + RANGE_FROM));
end;

Christian S. - So 11.01.04 19:59

Hallo, Ninja!

Bitte nutze demnächst Delphi- anstatt Code-Tags. Dadurch wird der Code mit Syntax-Highlighting dargestellt und wird sehr viel übersichtlicher.

MfG
Peter

Jeremy - So 18.01.04 12:51

Hallo Ninja!

ich werds mal so versuchen:

Delphi-Quelltext

1:
2:

randomize;
zufall := random(92000) + 8000;

Jeremy

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!