Affectation avec un type énuméréRésolu

Question

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

cs_Kenavo · Accepted Answer

Pour les type &#233;num&#233;r&#233;s :




for i := 0 to 2 do

  Couleur := TypeCouleur(i);

Ken@vo

____________________

Code, Code, Codec !

DRJEROME · Answer

2 solutions (il y en a d'autres) :

procedure TForm1.Button1Click(Sender: TObject); var Couleur:TColor; const TypeCouleur:array[0..2]of TColor=(clRed,clGreen,clBlue); begin Couleur:=TypeCouleur[2]; color:=Couleur; end; procedure TForm1.Button2Click(Sender: TObject); var Couleur:TColor; begin Couleur:=rgb(0,0,255); color:=Couleur; end;

N'oubliez pas de cliquer sur Réponse acceptée si c'est OK DrJerome

DRJEROME · Answer

le "color:=Couleur;" c(est juste pour faire le test (j'ai color&#233; le form 
&#224; titre de test)

DrJerome

EddiTheHead · Answer

drjerome,
j'ai utilis&#233; un type couleur comme exemple. Cela aurait pu &#234;tre n'importe quoi d'autre.

La solution de Kenavo est exactement ce que je cherchais.

Merci &#224; vous 2 pour votre aide.

Affectation avec un type énuméré

4 réponses

Votre réponse