Utilisation de ( CASE OF)

Salut à tous, je veux savoir comment utiliser (case of) mais avec un label
Par exemple

Code:

---

1 2 3

Case edit1.text of changement:form1.color:=clred; info:form1.caption:='bla bla bla';

---

J'espère que c'est claire !!

Le case ne fonctionne qu'avec des valeurs numériques :cry: Si tu veux utiliser des chaînes, il te reste les if enchaînée :

Code:

---

1 2 3 4

if edit .Text = ... then else if edit .Text =... ...

---

Salut, Merci pour votre réponse ,mais je ne veux pas utilisé (if .. then .. else),
sur l'aide de Delphi, j'ai trouver des exemples pour utiliser (case of) voila ce que j'ai trouvé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

//Voici d'autres exemples d'instructions case :   case MaCouleur of Rouge: x := 1; Vert: x := 2; Bleu: x := 3; Jaune, Orange, Noir: x := 0; end; case Selection of Fin: Form1.Close; Calcul: CalculTotal(CourUnit, Quant); else Bip; end;

---

Mais j'ai pas compris comment les utiliser, j'ai beaucoup essayé mais sans résultat :(.

Salut

Citation:

---

Envoyé par rsc

Le case ne fonctionne qu'avec des valeurs numériques :cry:

---

Pour être précis Case fonctionne avec un type scalaire: soit les types entier, caractère, booléen et énuméré.

ceci est correct:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var C: Char; begin case C of 'A'..'Z', 'a'..'z': // ... '0'..'9': // else // ... end; end;

---

@Zaki_SDwin: Lorsque tu travailles avec des chaînes (string) on ne peut pas utiliser case. Le seul moyen est le bon vieux: if ... then .. else

@+ Claudius

salut

ou un indexof d'un stringlist qui te fournie un indice
et celui ci peut etre gerer par un case of

@+ Phil

Pour en revenir à ton exemple :

Code:

---

1 2 3 4 5 6

case MaCouleur of Rouge: x := 1; Vert: x := 2; Bleu: x := 3; Jaune, Orange, Noir: x := 0; end;

---

il doit y avoir quelque part dans le code plus haut qqch du type

Code:

---

1 2 3 4 5

type TCouleur = (Rouge, Vert, Bleu, Jaune, Orange, Noir); // Définition d'un type scalaire ... Var MaCouleur : TCouleur;

---

Ce qui fait que "Rouge" n'est pas une chaîne (ni une variable), mais une valeur scalaire de type TCouleur.

Merci beaucoup à tous, y a t-il un autre exemple qui utilise une valeur scalaire parce que j'ai vraiment essayé avec l'exemple trouvé dans l'aide de Delphi mais toujours pas de réussite.:(

salut Tu peut faire aussi comme cela avec un string

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

case str[1] of 'B','b' : case str[2] of 'M','m' : case str[3] of 'P','p' : GereBmpValue; end; end; 'G','g' : case str[2] of 'I','i' : case str[3] of 'F','f' : gereGifValue end; end; .... end;

---

le case n'accepte que des valeur scalaire
@+ Phil

Oui merci pour l'exemple je viens d'apprendre comment mettre une (CASE OF) dans une autre encore merci, mais toujours je cherche une solution pour string (enfin à part (IF THEN), peut être que la solution que ta proposer ça va aider (le truc de l'index dans liststring) ,alors merci de me donner l'exemple.:D

salut

on initialise une liste de mots cle

Code:

---

1 2 3 4 5

lst :=TStringList.Create Lst.add('coucou'); Lst.add('Test'); Lst.add('Salut'); ....

---

ensuite

Code:

---

1 2 3 4 5 6

Case lst.indexof(variable) of 1 : mapremiere; 2 : maseconde; ... End;

---

@+ Phil

Merci, mais juste une petite modification pour que ça marche

Code:

---

1 2 3 4 5

Case lst.indexof(variable)+1 of 1 : mapremiere; 2 : maseconde; ... End;

---

Ou

Code:

---

1 2 3 4 5

Case lst.indexof(variable) of 0 : mapremiere; 1 : maseconde; ... End;

---

Thaaaaaaaaaanks, A+. :D :yaisse2:

N'oubliez pas la :faq:
Comment faire un Case Of avec des String ?