TextToEDIText (rtl)
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: