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 →

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:

Développement DSMDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels