ansonsten hätten auch zumindestens ein paar ELSE gereicht
Delphi-Quellcode:
if z=1 then z:=z+1
else if z=2 then z:=z+1
else if z=3 then z:=1;
[edit] ich seh grad, das mit else wurde doch schon gesagt ... nja, nun isses auch mal als Beispiel da [/edit]
und man braucht nichtmal ein ganzes CASE ... ein einfaches IF wäre auch gegangen
if z<3 then z:=z+1 else z:=1;
oder
if z<3 then inc(z) else z:=1;