TextToEDIText (rtl)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>Function TextToEDIText(const aSource:string):string;</source> Cette fonction encode une chaîne en représentation EDI. Pour cela elle ajoutele caract… ») |
|||
| Ligne 3 : | Ligne 3 : | ||
Cette fonction encode une chaîne en représentation EDI. | Cette fonction encode une chaîne en représentation EDI. | ||
| − | Pour cela elle | + | Pour cela elle ajoute le caractère d'échappement "?" devant les caractères suivants : "'" ":" "+" |
{|class="wikitable" | {|class="wikitable" | ||
Version actuelle en date du 19 août 2010 à 14:21
Function TextToEDIText(const aSource:string):string;
Cette fonction encode une chaîne en représentation EDI.
Pour cela elle ajoute le caractère d'échappement "?" devant les caractères suivants : "'" ":" "+"
| Result | La chaîne encodée. |
| AText | Une chaîne à encoder. |
Exemple
begin if not (TextToEDIText('aa:aa+aa''aa')='aa?:aa?+aa?''aa') then ShowMessage('Erreur'); end;
Voir aussi:
