Section courante

A propos

Section administrative du site

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

Exemples

Cet exemple permet d'évaluer la valeur de la variable «a» :

  1. Program CaseOfSamples;
  2.  
  3. Var a:Integer = 2;
  4.  
  5. BEGIN
  6.  Case a of
  7.   1,2,3:WriteLn('Entre 1 et 3');
  8.   4,5,6:WriteLn('Entre 4 et 6');
  9.   7:WriteLn('C''est 7');
  10.   Else WriteLn('Inférieur ou égale à 0 ou supérieur à 8');
  11.  End;
  12. END.

on obtiendra le résultat suivant :

Entre 1 et 3

L'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 :

  1. Program CaseOfStringSamples;
  2.  
  3. Const Balise:String = 'TABLE';
  4.  
  5. BEGIN
  6.  Case Balise Of
  7.   'A','B','DIV','P','TABLE':WriteLn('Balise du corps');
  8.   'LINK','META','SCRIPT','TITLE':WriteLn('Balise d''entête');
  9.   Otherwise WriteLn('Balise inconnu'); 
  10.  End;
  11. END.

on obtiendra le résultat suivant :

Balise du corps

Dernière mise à jour : Samedi, le 30 août 2014