Section courante

A propos

Section administrative du site

Une chaine de caractères est un tableau contenant des caractères utilisables pour être mis dans une variable ou affichable dans un message. On peut indiquer un guillemet double pour délimiter le début et la fin d'une chaine de caractères. De plus, on peut lui attribuer une valeur immédiatement lors de la création de la variable (String) ou après. Voici quelques exemples de définitions de variables :

  1. Program String1;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Const
  7.  X:String = 'ABC';
  8.  
  9. Var
  10.  Y,Z:String;
  11.  
  12. BEGIN
  13.  Y := 'DEF';
  14.  Z := 'GHIJK';
  15.  WriteLn(X,Y,Z);  
  16. END.

on obtiendra le résultat suivant :

ABCDEFGHIJK

Il peut arriver que vous ayez à mettre dans la chaine de caractères elle-même, votre caractère de délimitation, pour se faire, il faut le doublé tout simplement. Voici quelques exemples d'utilisation de simple guillemets dans la chaine de caractères :

  1. Program String2;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Var
  7.  Y,Z:String;
  8.  
  9. BEGIN
  10.  Y := 'L''AUTRE Y';
  11.  Z := 'L"AUTRE Z';
  12.  WriteLn('L''AUTRE X' + #13#10 + Y + #13#10 + Z);  
  13. END.

on obtiendra le résultat suivant :

L'AUTRE X
L'AUTRE Y
L"AUTRE Z

Si vous souhaitez simplement ajouter une chaine de caractères après votre chaine de caractère actuel, il suffit d'utiliser l'opérateur «+». Voici quelques exemples de son utilisation :

  1. Program String3;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Var
  7.  Y,Z:String;
  8.  
  9. BEGIN
  10.  Y := ',' + 'DEUXIEME';
  11.  Z := 'TROISIEME' + ',' + 'QUATRIEME';
  12.  WriteLn('PREMIER',Y,',',Z);  
  13. END.

on obtiendra le résultat suivant :

PREMIER,DEUXIEME,TROISIEME,QUATRIEME

Si vous souhaitez connaitre la longueur de la chaine de caractères, il faut utiliser la fonction Length. Voici quelques exemples permettant de déterminer la longueur de la chaine de caractères :

  1. Program LenSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Var
  7.  message:String;
  8.      
  9. BEGIN
  10.  message := 'ABC';
  11.  WriteLn('LONGUEUR(''Bonjour'')=',Length('Bonjour'));
  12.  WriteLn('LONGUEUR(message)=',Length(message));
  13.  WriteLn('LONGUEUR(''Bonjour''+message)=',Length('Bonjour' + message));
  14. END.

on obtiendra le résultat suivant :

LONGUEUR('Bonjour')=7
LONGUEUR(message)=3
LONGUEUR('Bonjour'+message)=10

Encore une fois, si vous voulez une partie seulement d'une chaine de caractères, vous devez utiliser une fonction, soit la fonction Copy. Voici quelques exemples pour extraire une partie de la chaine de caractères :

  1. Program StringSubstring;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Const
  7.  courriel : String = 'support@gladir.com';
  8.  
  9. BEGIN
  10.  Write('Chaine de caractères : ');
  11.  WriteLn(courriel);
  12.  If Copy(courriel,Length(courriel)-Length('gladir.com')+1,Length('gladir.com')) = 'gladir.com'Then Begin
  13.   Write('Début de la chaine de caractères : ');
  14.   WriteLn(Copy(courriel,1,Length(courriel) - Length('gladir.com') - 1));
  15.  End;
  16. END.

on obtiendra le résultat suivant :

Chaine de caractères : support@gladir.com
Début de la chaine de caractères : support

Dernière mise à jour : Dimanche, le 17 août 2014