Case und Schleife??

**Sankar**

So hallo Leute,

Ich hab hier mal ein kleines Problem und hoffe ihr könnt mir dabei helfen.

Also als erstes mal soll das Programm folgendes machen:

Mit Hilfe eines Timers und einer Case-Anweisung möchte ich mit dem Programm eine Art Ampel darstellen.
Dies funktioniert soweit auch wunderbar!
Es läuft auch ein Zähler mit damit ich die einzelnen Schritte nachvollziehen kann!
Das heißt beim Klick auf den Button wird der Timer auf true gesetzt.
Dort wird dann folgendes ausgeführt:
1: Rot
2: Gelb/Rot
3: gelb
4: Grün
5: Gelb

zusammenfalten · markieren

Delphi-Quellcode:

			begin

Lb_date.Caption := TimeToStr(Now());

Lb_zaehler1.Caption:=inttostr(zaehler);

zaehler:=zaehler+1;

  case zaehler of

    1:

    begin

      Pn_green.color:=clBtnFace;

      Pn_yellow.Color:=clBtnFace;

      Pn_red.Color:=clred;

    end;

    2:

    begin

      Pn_green.color:=clBtnFace;

      Pn_yellow.color:=clyellow;

    end;

    3:

    begin

      Pn_red.color:=clBtnFace;

      Pn_yellow.Color:=clyellow;

      Pn_green.color:=clBtnFace;

    end;

    4:

    begin

      Pn_red.color:=clBtnFace;

      Pn_yellow.color:=clBtnFace;

      Pn_green.Color:=clgreen;

    end;

    5:

    begin

      Pn_red.color:=clBtnFace;

      Pn_green.Color:=clBtnFace;

      Pn_yellow.Color:=clyellow;

    end;

  end;

end;

procedure TForm1.Btn_startClick(Sender: TObject);

begin

Timer1.enabled:=true;

end;

Soweit läuft es auch wunderbar nur möchte ich jetzt, dass das programm nach der ausführung von 5 wieder mit 1 beginnt.
Hab es versucht in eine Schleife zu schreiben doch das hat nicht so richtig wollen! Deshalb frag ich euch mal an dieser Stelle wie ihr das Umsetzen würdet!

Schonmal vielen Dank im vorraus!

mfg Sankar

Case und Schleife??

Case und Schleife??

Forumregeln