[FreePascal] Fonction enlevant les espaces en debut et fin de string ?

Bonjour a tous,
Voila j'ai juste un petit probleme .. j'ai cherchais sur le net une fonction qui enleve les espaces en debut et en fin de chaines de caracteres en pascal ?
Un peu comme le trim de PHP !
Je n'ai pas trouvé, est ce que elle existe en pascal ou pas ? ou faut t'il que je la programme ?
Merci d'avance

Il faut que tu la programmes ! Regarde du côté de pos, copy, delete.

Oui j'avais deja vu .. mais je me disait que peut etre ca existait deja ;)
Et donc je ne voulais pas reinventer la roue ;)
merci de ta reponse tres rapide

les fonctions trim, trimleft, trimright

existent aussi en FreePascal

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program prgtrim; uses sysutils; const toto : string = ' toto ';   begin writeln (length(trim (toto))); writeln (length(trimleft (toto))); writeln (length(trimright (toto))); readln; end.

---