EDITextToText (rtl)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>Function EDITextToText(const aSource:string):string;</source> Cette fonction décode une chaîne en représentation EDI. Pour cela elle retire le carac… ») |
|||
| Ligne 2 : | Ligne 2 : | ||
Cette fonction décode une chaîne en représentation EDI. | 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 : "'" ":" "+" | Pour cela elle retire le caractère d'échappement "?" devant les caractères suivants : "'" ":" "+" | ||
Version actuelle en date du 19 août 2010 à 14:18
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:
