Discussion :

[Dry]

Bonjour,

Concidérons le type énuméré suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TMaCouleur = (mcRouge, mcBleu, mcVert, mcJaune, mcOrange);

Est-il possible de retrouver automatiquement le bon type à partir d'une chaine de caractère valant par exemple 'mcJaune' ?

En d'autre terme réaliser l'opération suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MyColor : TMaCouleur;
MyColor := TMaCouleur('mcJaune');

évidement, sans passer par un morceau de code comme celui-ci, qui ne vaux pas grand chose si on rajoute un élément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
StrColor : String;
MyColor : TMaCouleur;
if StrColor = 'mcRouge' then MyColor := mcRouge;
if StrColor = 'mcBleu' then MyColor := mcBleu;
...

Merci par avance,
Dry

[anapurna]

salut

utilise les tableaux
ce la te permet de connaittre le rang dans ton ensemble et inversement

@+ Phil

[Cl@udius]

Salut,

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  uses TypInfo;
  ...
 
  MaCouleur := TMaCouleur(GetEnumValue(TypeInfo(TMaCouleur), 'mcJaune'));

@+ Claudius

[Dry]

Excelent,
c'est exactement ce que je cherchais.

Merci !

[LadyWasky]

Et il y a aussi l'opération inverse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
uses TypInfo;
var NomDeMaCouleur:string;
     MaCouleur:TCouleur;
  ...
  MaCouleur:=mcJaune; 
  NomDeMaCouleur:=GetEnumName(TypeInfo(TMaCouleur),MaCouleur);

[sjrd]

Voir à ce sujet les tutoriels sur les RTTI