EDITextToText (rtl)
De Wiki1000
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: