CASE OF |
Cas de |
---|---|
Free Pascal |
Syntaxe
CASE select OF etiquette1: instruction1; etiquette2: instruction2; ... etiquetten: instructionn; ELSE instructionautre; END; |
CASE select OF etiquette1: instruction1; etiquette2: instruction2; ... etiquetten: instructionn; OTHERWISE instructionautre; END; |
Paramètres
Nom | Description |
---|---|
select | Ce paramètre permet d'indiquer l'expression à évaluer. Peut-être de type caractère, numérique ou de chaîne de caractères. |
etiquette1, etiquette2, etiquetten | Ce paramètre permet d'indiquer une valeur à évaluer. Peut-être de type caractère, numérique ou de chaîne de caractères. |
instruction1, instruction2, instructionn | Ce paramètre permet d'indiquer l'instruction exécuté si la valeur correspond |
instructionautre | Ce paramètre permet d'indiquer l'instruction exécuté si aucune valeur ne correspond |
Description
Ce mot réservé permet de définir une liste de conditionnelles ayant comme point de comparaison un même résultat.
Remarques
- Il est recommandé d'utiliser le mot réservé «CASE» plutôt que «IF» lorsque vous avez une suite répétitive de comparaison, car elle est aide à la lisibilité du code source.
- Il n'est pas nécessaire d'avoir une valeur par défaut (indiquer par les mots réservés «ELSE» ou «OTHERWISE») pour utiliser le mot réservé «CASE».
- Contrairement au Turbo Pascal de Borland, supportant uniquement la comparaison de chiffre ou d'un caractère unique, le Free Pascal, à partir de la version 2.6.0, offre également la possibilité d'effectuer la comparaison de chaîne de caractères. Si vous avez une version supérieur à 2.6.0 et qu'il ne reconnait pas cette possibilité par défaut, vous devrez peut-être forcer la compilation avec le code suivant «{$mode objfpc}» au début de votre code source.
- Le Free Pascal supporte aussi bien le mot réservé «ELSE» que «OTHERWISE» pour indiquer une valeur par défaut ne correspondant pas aucune des autres valeurs indiqués. Cette possibilité n'est pas offert en standard dans le Turbo Pascal pour PC (supportant uniquement «ELSE») tandis que le Turbo Pascal for Macintosh et d'autres compilateur pour Apple supportent uniquement «OTHERWISE». Ainsi, le Free Pascal, offre le support des deux aussi bien sur une plateforme Linux, Windows ou Mac OS X. Vous devrez cependant faire attention à cette mot clef si vous tentez de rendre portable sur n'importe quel type de compilateur Pascal.
Exemples
Cet exemple permet d'évaluer la valeur de la variable «a» :
on obtiendra le résultat suivant :
Entre 1 et 3L'exemple suivant permet de déterminer si la balise est situé dans le «HEAD» et le «BODY» du HTML en exploitant la possibilité d'effectuer des comparaisons de chaine de caractères :
on obtiendra le résultat suivant :
Balise du corps
Dernière mise à jour : Samedi, le 30 août 2014