EDITextToText (rtl)
De Wiki1000
(Différences entre les versions)
Flfay (discuter | contributions)
(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… »)
Modification suivante →
(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… »)
Modification suivante →
Version du 19 août 2010 à 15:11
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:
Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |