Langage de programmation - Free Pascal - Référence de procédures et fonctions

UPCASE	Casse haute
Free Pascal	System

Syntaxe

Function upCase(const s:ShortString):ShortString;

Function upCase(c:Char):Char;

Function upCase(const s:AnsiString):AnsiString;

Function upCase(const s:WideString):WideString;

Paramètres

Nom	Description
c	Ce paramètre permet d'indiquer le caractère à convertir
s	Ce paramètre permet d'indiquer la chaîne de caractères à convertir

Description

Cette fonction permet de convertir en chaîne de caractères de format standard Pascal en majuscule.

Remarques

La fonction Upcase renvoie la version majuscule de son paramètre ch. Si son paramètre est une chaîne de caractères, alors la chaîne de caractères complète est convertie en majuscules. Le type de la valeur renvoyée est le même que le type de le paramètre.
La fonction UpCase ne modifie pas le nombre de caractères de la chaîne de caractères.

Algorithme

MODULE UpCase(letter)
   EVALUER CAS letter
      CASE 'a':
         letter ← 'A'
      CASE 'b':
         letter ← 'B'
      CASE 'c':
         letter ← 'C'
      CASE 'd':
         letter ← 'D'
      CASE 'e':
         letter ← 'E'
      CASE 'f':
         letter ← 'F'
      CASE 'g':
         letter ← 'G'
      CASE 'h':
         letter ← 'H'
      CASE 'i':
         letter ← 'I'
      CASE 'j':
         letter ← 'J'
      CASE 'k':
         letter ← 'K'
      CASE 'l':
         letter ← 'L'
      CASE 'm':
         letter ← 'M'
      CASE 'n':
         letter ← 'N'
      CASE 'o':
         letter ← 'O'
      CASE 'p':
         letter ← 'P'
      CASE 'q':
         letter ← 'Q'
      CASE 'r':
         letter ← 'R'
      CASE 's':
         letter ← 'S'
      CASE 't':
         letter ← 'T'
      CASE 'u':
         letter ← 'U'
      CASE 'v':
         letter ← 'V'
      CASE 'w':
         letter ← 'W'
      CASE 'x':
         letter ← 'X'
      CASE 'y':
         letter ← 'Y'
      CASE 'z':
         letter ← 'Z'
   FIN EVALUER CAS
   RETOURNE letter

MODULE UpCase(chaine)
   BOUCLE POUR I ← 1 JUSQU'A longueur(chaine)
      EVALUER CAS chaine[I]
         CASE 'a':
            letter ← 'A'
         CASE 'b':
            letter ← 'B'
         CASE 'c':
            letter ← 'C'
         CASE 'd':
            letter ← 'D'
         CASE 'e':
            letter ← 'E'
         CASE 'f':
            letter ← 'F'
         CASE 'g':
            letter ← 'G'
         CASE 'h':
            letter ← 'H'
         CASE 'i':
            letter ← 'I'
         CASE 'j':
            letter ← 'J'
         CASE 'k':
            letter ← 'K'
         CASE 'l':
            letter ← 'L'
         CASE 'm':
            letter ← 'M'
         CASE 'n':
            letter ← 'N'
         CASE 'o':
            letter ← 'O'
         CASE 'p':
            letter ← 'P'
         CASE 'q':
            letter ← 'Q'
         CASE 'r':
            letter ← 'R'
         CASE 's':
            letter ← 'S'
         CASE 't':
            letter ← 'T'
         CASE 'u':
            letter ← 'U'
         CASE 'v':
            letter ← 'V'
         CASE 'w':
            letter ← 'W'
         CASE 'x':
            letter ← 'X'
         CASE 'y':
            letter ← 'Y'
         CASE 'z':
            letter ← 'Z'
      FIN EVALUER CAS
   FIN BOUCLE POUR
   RETOURNE letter

Exemple

Voici un exemple typique de l'utilisation de cette fonction :


									
Program UpCaseSamples;

 
Function StrToUpper(Chaine:string):String;


Var

 I:Integer;

Begin

 For I := 1 to Length(Chaine) do Chaine[I] := UpCase(Chaine[I]);


 strtoupper:=Chaine;

End;

 
BEGIN

 WriteLn(StrToUpper('Sylvain Maltais'));


 WriteLn(StrToUpper('SYLVain MALTais'));

 WriteLn(StrToUpper('SYLVAIN MALTAIS'));


END.

on obtiendra le résultat suivant :

SYLVAIN MALTAIS SYLVAIN MALTAIS SYLVAIN MALTAIS

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - Lowercase

Dernière mise à jour : Samedi, le 18 juillet 2015

Section courante

A propos

Section administrative du site

UPCASE