Affectation avec un type énuméré [Résolu]
EddiTheHead
- Messages postés
- 60
- Date d'inscription
- mercredi 16 février 2005
- Dernière intervention
- 2 juin 2006
- Messages postés
- 60
- Date d'inscription
- mercredi 16 février 2005
- Dernière intervention
- 2 juin 2006
A voir également:
- Affectation avec un type énuméré
- Conserver les noms de définition d'un type énuméré - Codes sources - Delphi / Pascal (API)
- Gestion d'un type enuméré dans tlistbox - Codes sources - Delphi / Pascal (Control)
- De l'aide!! Types énumérés et ensembles ✓ - Forum - Delphi / Pascal
- Types énumérés = enfer ✓ - Forum - Delphi / Pascal
- Problème d'affectation d'un objet de type arraylist ✓ - Forum - Java
4 réponses
Meilleure réponse
- Messages postés
- 759
- Date d'inscription
- vendredi 21 mars 2003
- Dernière intervention
- 1 octobre 2009
Pour les type énumérés :
for i := 0 to 2 do
Couleur := TypeCouleur(i);
Ken@vo
____________________
Code, Code, Codec !
for i := 0 to 2 do
Couleur := TypeCouleur(i);
Ken@vo
____________________
Code, Code, Codec !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 98 internautes ce mois-ci
- Messages postés
- 447
- Date d'inscription
- jeudi 9 janvier 2003
- Dernière intervention
- 5 février 2015
2 solutions (il y en a d'autres) :
<HR>
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;
<HR>
N'oubliez pas de cliquer sur Réponse acceptée si c'est OK
DrJerome
<HR>
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;
<HR>
N'oubliez pas de cliquer sur Réponse acceptée si c'est OK
DrJerome
- Messages postés
- 60
- Date d'inscription
- mercredi 16 février 2005
- Dernière intervention
- 2 juin 2006
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.