Case, String, Ordinale, non compatible ?

**mickael.be** · 03/01/2006, 19h41

Hello,

Je tente de faire mon premier Case en Delphi

case ModeSocket of

Client: ClientSocket1.Open;
Server: ShowMessage('Server');

else
ShowMessage('Mode: Type inconnu');
end;

Ma var est déclarée en: ModeSocket: String;

et contient du String : ModeSocket := FichierIni.ReadString('TCP','Mode','UnKnow');

Malheureusement je reçois :

[Erreur] Unit1.pas(335): Type ordinal requis

J'ai beau aller voir dans la doc :

Certains types permettent des valeurs classées suivant un ordre. Ces types sont alors dits ordinaux. C'est le cas, parmi les types que vous connaissez, de tous les types entiers ('integer', 'byte', ...), des booléens, des caractères (mais pas des chaînes de caractères) et des énumérés.

Ca ne m'avance guère, mon contenant est lui en String (valeur d'un fichier INI)

Voilà, je suis bloqué !

Si quelqu'un pourrais m'aiguiller vers la bonne gare :-)
A+

**bjl** · 03/01/2006, 19h49

Bonjour,

en effet il n'est pas possible de faire un case sur une valeur de string;

peut être ceci suffira il ?

Code :

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

1
2
3
4
5
6
7
8
if MyValue = 'chaine 1' then traitement 1
else if MyValue = 'chaine 2' then traitement 2
else if MyValue = 'chaine 3' then traitement 3
else if MyValue = 'chaine 4' then traitement 4
else if MyValue = 'chaine 5' then traitement 5
else if MyValue = 'chaine 6' then traitement 6
else if MyValue = 'chaine 7' then traitement 7
else traitement 8;