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

Développement DSMDéveloppement DSM





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