Ich hab nicht genau nachgeschaut, wie das Inkrementieren gemacht wird.
Natürlich kann man das inkrementieren und die Restanweisung...
Delphi-Quellcode:
zaehler:=zaehler+1;
zaehler:=(zaehler-1) mod 5+1;
...zusammenfassen in:
zaehler:=zaehler mod 5+1;
EDIT: mist, stimmt... ich bin irgendwie atm auch ned so ganz auf der Höhe meiner Konzentrationsfähigkeit. ^^