|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Ampelschaltung
30. Sep 2010, 16:44
Ich würde das ungefähr so lösen:
Delphi-Quellcode:
Farbarray [0..3] of farben = (grün,gelb,rot,gelb);
....
Anzeigefarbe:=Farben[Klickzaehler and 3];
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|