Discussion :

[rec82]

bon soir
ya t'il une fonction en delphi ressemble à la fonction selectcase de vb.
car je veut que l'element de choix soit un string,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
var m :string;
begin
m:=edit1.Text;
begin
case  m of
 
'janvier': showmessage('janvier');
'fevrier': showmessage('fevrier');
 
end;
end;

mais le message d'erreur "ordinal type required"

[Just-Soft]

salut;

ben oui et voici ça syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
     v :integer;
     m : string;
 
case v of
   1 : m := 'Janvier';
   2 : m := 'Février'
   .
   .
   .  
 else 
   m := 'n''importe quoi ....'
end;

Tout ça est bien détailler dans l'aide, n'hésites pas à faire un tour "F1 très utile"

[CapJack]

Il n'y a pas de case avec string en Pascal... la variable doit être de type scalaire (entier, caractère, ensemble, etc.).

Éventuellement tu peux utiliser des tableaux de chaînes et écrire une boucle.

[Just-Soft]

Très juste mais on peut toujours contourne le problème comme dans l'exemple que je viens de donner. L'important c'est dans la finalité de ce que l'on cherche.

[JP.NUAGE]

Voiulà une petite astuce pour ton pb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
m:=edit1.Text;
case  m[1] of
   'j','J': showmessage('janvier');
   'f','F': showmessage('fevrier');
   'm','M' :  case m[3] of
                    'r','R' : showmessage('Mars');
                    'i','I' : showmessag('Mai');
                 end;
 
 end;
end;

Je pense que tu résoudras sans problème le cas de janvier (juin, juillet), et de avril (aout).

Je l'ai testé : ca fonctionne

Bon code
A+

[andreditdd]

Voici une autre astuce:

Code :

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

1
2
3
4
5
6
case AnsiIndexStr(Edit1.Text, ['janvier', 'février', 'mars']) of
      0: showmessage('janvier');
      1: showmessage('février');
      2: showmessage('mars');
     -1: showmessage('J''sais pô');
   end;

André