TextToEDIText (rtl)

De Wiki1000
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:

Développement DSMDéveloppement DSM





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels