ampel programmieren

[Klaus01]

Delphi-Quellcode:

Procedure wait(Time:Integer); 
  Var x:Dword; 
Begin 
  Time := Time * 20; 
  x := GetTickCount ; 
  While x - time < GetTickCount do     Application.ProcessMessages; 
End;

nur mal so zu darübernachdenken,
GetTickCount gibt Dir die Anzahl der Millisekunden seit
dem Start des Computers aus.
(Aus der Hilfe: GetTickCount is a Cardinal function used
to retrieve the number of milliseconds since the computer was started.)

Die ziehst von dieser Zahl x*20 Millisekunden ab, was eine sehr
kurze Zeitdauer ist.

Deine switch Methode wird in 240ms durchlaufen, da brauchst Du ein schnelles
Auge.

Grüße
Klaus