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