Recherche:

Pas sûr car je crois qu'il y a un problème avec les espaces qui sont convertis automatiquement en CRLF. (Je sais que quelqu'un avait eu un soucis sur le forum, mais je suis pas sûr à 100% ^^)

Mon dieu, que c'est bine compliquer tout cela 8O



function DecoupeList(MaChaine,separateur : String) : String;
Var

lst : TStringList;
begin
Result := '';