Section courante

A propos

Section administrative du site

Une chaîne 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 chaîne 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 chaîne 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 chaîne 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 chaîne de caractères après votre chaîne 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 connaître la longueur de la chaîne de caractères, il faut utiliser la fonction Length. Voici quelques exemples permettant de déterminer la longueur de la chaîne 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 chaîne de caractères, vous devez utiliser une fonction, soit la fonction Copy. Voici quelques exemples pour extraire une partie de la chaîne 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 chaîne de caractères : support

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