Einzelnen Beitrag anzeigen

TeKilla

Registriert seit: 24. Jun 2003
2 Beiträge
 
#1

wegen zeitberechnung gleiche zufallszahlen

  Alt 24. Jun 2003, 15:58
hallo!
habe bei einem programm folgendes problem:
ich möchte ein feld mit einer vom user bestimmten menge von zufallszahlen füllen, habe aber das problem, dass wenn der user z.B. 10 zufallszahlen möchte, diese in einem so kleinen zeitabstand von delphi erzeugt werden, dass sie alle gleich sind (delphi rechnet ja durch die uhrzeit die zufallszahlen aus). das problem is natürlich dass es ziemlich öde is wenn alle zufallszahlen immer gleich sind. weiss einer wie ich es hinbekomme dass delphi sofort andere zufallszahklen erzeugt?
hier noch der qullcode:
Delphi-Quellcode:
procedure TForm1.zufallbtnClick(Sender: TObject);
var
h,z,i:integer;
begin
h:=strtoint(zufall.text)+1; {der wertebereich der zufallszahlen}
for i:=feldmenge+1 to feldmenge+h do begin
randomize;
z:=random(strtoint(randommenge.text));
box1.items.add(inttostr(z));
feldunsort[i]:=z;
end;
feldmenge:=box1.items.count+1;
end;
schonmal vielen dank im vorraus für die hilfe
Greetz
TeKilla
  Mit Zitat antworten Zitat