TextToEDIText (rtl)

De Wiki1000
Version du 19 août 2010 à 14:18 par Flfay (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
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:

Développement DSMDéveloppement DSM





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