EDITextToText (rtl)

De Wiki1000
Révision datée du 19 août 2010 à 13:11 par Flfay (discussion | 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… »)
(diff) ← Version précédente | Voir la version actuelle (diff) | Version suivante → (diff)

<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 caractère d'échappement "?" devant les caractères suivants : "'" ":" "+"


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

Exemple

<source lang='delphi'> begin

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

end; </source>

Voir aussi:

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM

}}