Thema: Delphi Zufall generieren !?!

Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Zufall generieren !?!

  Alt 1. Nov 2005, 13:53
hallo fabgo,

zufall ist ganz einfach:
rufe ein einziges mal in deinem programm den befehl randomize; auf (am besten im Ereignis OnFormCreate deines formulars). dies initialisiert den zufallsgenerator.
nun kannst du mit der funktion random(X) einen zufällig wert erzeugen lassen, der größer gleich null und kleiner X ist.

dein code müsste also heißen:

Delphi-Quellcode:
procedure TAmpel2.Timer1Timer(Sender: TObject);
begin
  if ImAuto1.Left <= 620
    then begin
      ImAuto1.Left := ImAuto1.Left +1;
      Timer1.Interval := 5;
    end;
  if ImAuto1.Left >= 620
    then begin
      ImAuto1.Left := -20;
      Timer1.Interval := 5;
    end
      else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174) and (Imgelblinks.Visible = True)
        then begin
          //Timer1.Interval := 25;
       
          //zufallszahl generieren (null oder eins kommt raus).
          //wenn 1, dann ist interval = 25. sonst ist interval = 1
          if random(2) = 1 then
            Timer1.Interval := 25
          else
            Timer1.Interval := 1;

        end // GENAU AN DIESER STELLE WEIß ICH NICHT WEITER, HIER SOLL DER ZUFALL GENERIERT WERDEN, dass das Interval dann 1 ist...

          else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174)and (Imrotlinks.Visible)
            then begin
              Timer1.Interval := 25;
            end;
end;
und: herzlich willkommen in der DelphiPRAXiS
PS: wenn du das nächste mal delphi-code hier einfügst, umschließe ihn doch bitte mit den delphi-tags (das leerzeichen nach dem slash weglassen):
[delphi]if 1 = 2 then 3;[/ delphi]

aenogym
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat