Upss
Hab zu spät gelesen das 0 = 3 ergeben soll, Sorry
Ungetestet und sicher noch verbesserungswürdig
Delphi-Quellcode:
var i: Integer;
begin
Case i of
0 : i:= 3;
1..2: Inc(i);
3 : i:= 1;
end;
end;
Das Hochzählen von I erfolgt nur wenn I > 0
und I < 3, weils sonst Quatsch währe
Gruss Mario
