EDITextToText (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 EDITextToText(const aSource:string):string;

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

Pour cela elle retire le caractère d'échappement "?" devant les caractères suivants : "'" ":" "+"


Result La chaîne décodée.
aSource Une chaîne à décoder.

Exemple

begin
 if not (EDITextToText(':?dd?:++ ?+')=':?dd:++ +' ) then ShowMessage('Erreur');
end;

Voir aussi:

Développement DSMDéveloppement DSM

Outils personnels