Section courante

A propos

Section administrative du site

TRIM

Trimé
Delphi/Kylix/Lazarus SysUtils

Syntaxe

Function Trim(Const S:String):String;

Paramètres

Nom Description
S Ce paramètre permet d'indiquer une chaine de caractères à traiter

Description

Cette fonction supprime les caractères d'espace aux extrémités d'une chaine de caractères de format standard Pascal.

Algorithme

MODULE trim(string)
   BOUCLE POUR I ← 0 JUSQU'A longueur(string)
      SI string[I] <> ' ' ALORS
         ARRETER BOUCLE
      FIN SI
   FIN BOUCLE POUR
   SI I = longueur(string) ALORS
      RETOURNER '';
   FIN SI
   BOUCLE POUR J ← longueur(string) - 1 JUSQU'A 0 SAUT -1
      SI string[J] <> ' ' ALORS
         ARRETER BOUCLE
      FIN SI
   FIN BOUCLE POUR
   RETOURNE sous-chaine(string, de la position I,de longueur J - I + 1)

Exemple

Cet exemple permet d'enlever les espaces entre les noms :

  1. Program TrimSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.  
  7. BEGIN
  8.  WriteLn(Trim(' Sylvain '), Trim(' Maltais '));
  9. END.

on obtiendra le résultat suivant :

SylvainMaltais

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AnsiLeftStr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AnsiMidStr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AnsiRightStr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Delete
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - TrimLeft
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - TrimRight

Dernière mise à jour : Mercredi, le 18 février 2015