« TextToEDIText (rtl) » : différence 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… ») |
Aucun résumé des modifications |
||
| 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" | ||
Dernière version du 19 août 2010 à 13: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: