TextToEDIText (rtl)
De Wiki1000
Version du 19 août 2010 à 15:21 par Flfay (discuter | contributions)
Function TextToEDIText(const aSource:string):string;
Cette fonction encode une chaîne en représentation EDI.
Pour cela elle ajoute le caractère d'échappement "?" devant les caractères suivants : "'" ":" "+"
Result | La chaîne encodée. |
AText | Une chaîne à encoder. |
Exemple
begin if not (TextToEDIText('aa:aa+aa''aa')='aa?:aa?+aa?''aa') then ShowMessage('Erreur'); end;
Voir aussi: