TextToEDIText (rtl)

De Wiki1000
Version du 19 août 2010 à 15:21 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 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

Outils personnels