Discussion :

[Zaki_SDwin]

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

Code :

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

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

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

[rsc]

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

Code :

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

1
2
3
4
if edit .Text = ... 
  then
  else if edit .Text =...
...

[Zaki_SDwin]

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 :

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

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 .

[Cl@udius]

Salut

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

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 :

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

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

[anapurna]

salut

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

@+ Phil

[rsc]

Pour en revenir à ton exemple :

Code :

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

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 :

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

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.

[Zaki_SDwin]

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.