TextToEDIText (rtl)

Function TextToEDIText(const aSource:string):string;

Cette fonction encode une chaîne en représentation EDI.

Pour cela elle ajoutele 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:

• EDITextToText

— Développement DSM — Développement DSM —