CaseOf Anweisung---mehrere Befehle pro Auswahlkriterium?

[Sharky]

Hai SimOr,

das habe ich eben mal so gelöst:


http://www.sharkys-home.de/smiles/finger.gif

Delphi-Quellcode:

const
 rot = 1;
 rot_gelb = 2;
 gelb = 3;
 gruen = 4;
 gelb2 = 5;
var
 sichtbar : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
 sichtbar := rot;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin
 Image1.Visible := (sichtbar = rot) OR (sichtbar = rot_gelb);
 Image2.Visible := (sichtbar = gelb) or (sichtbar = rot_gelb) or (sichtbar = gelb2);
 Image3.Visible := sichtbar = gruen;
 INC (sichtbar);
 if (sichtbar > gelb2) then sichtbar := 1;
end;

Schau mal ob Du verstehst was passiert!

[EDIT] Ich habe den Code eben noch erweitert. Ich hatte eine Schaltungsphase vergessen!!!