// Unité à utiliser
uses SysUtils ;
// Déclaration
var
MaChaine : String ;
Resultat : String ;
// Utilisation
MaChaine := ' Ceci est un test ' ;
Resultat := TrimLeft ( MaChaine ) ; // Resultat contient 'Ceci est un test '
Resultat := TrimRight ( MaChaine ) ; // Resultat contient ' Ceci est un test'
Resultat := Trim ( MaChaine ) ; // Resultat contient 'Ceci est un test'