Salut tout le monde,
une petite question toute bete mais qui me serait d'une grande utilité (sinon tant pis, je le ferai moi meme) : Existe-t'il une fonction comme Succ mais qui retourne au début de l'enum automatiquement?
Du genre :
qui pourrait s'implementer comme ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 type TMonEnum = (me1, me2, me3); SuccEx(me1) = me2 SuccEx(me3) = me1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 function SuccEx(x: Enum): Enum; begin if x = High(Enum) then x := Low(Enum) else x := Succ(x); end;
Partager