Voici un exemple :
Type TypeCouleur = (Rouge, Vert, Bleu);
Var Couleur : TypeCouleur;
Chaque élément à un N° d'ordre
Ord(Vert) => 1
Exsite-t-il une fonction pour faire l'inverse.
C-à-d avec le N° d'ordre 2, affecter "Bleu" à la variable Couleur, sans utiliser de If ou Case Of.
Ce qui donnerais : Couleur := ???(2);