EDITextToText (rtl)
<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 —
}}