Zufallsfunktion

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Kharlanki · begonnen am 11. Jul 2007 · letzter Beitrag vom 12. Jul 2007

Antwort

Stefan92

Registriert seit: 9. Jan 2007
146 Beiträge

Delphi 7 Enterprise

Re: Zufallsfunktion

11. Jul 2007, 21:09

Hallo,

als Zufallsfunktion würde ich "Random(x)", wobei das Ergebnis im Zahlenbereich von 0 bis x-1 liegt, empfehlen. Diese Funktion musst du aber erst mit Randomize irgendwo initialisieren.

markieren

Delphi-Quellcode:

			if (tag > 30) and (tag < 60) then  {Intervall von 30 Tagen}

  x:= random(30) + 30;

if tag = x then 

  Ereignis;

if tag = 45 then 

  x2:= random(2);

if x2 = 0 then 

  tu_dies

else 

  tu_jenes;