FormatThesaurus Dans (FormatThesaurusTexte, FormatThesaurusHtml, FormatThesaurusUpsTrn);
La signification des valeurs est la suivante :
/****************************************************************/
Procedure EnvoyerMessage(MessageEnvoye : Caractere)
/* Objet : Envoie en message. */
/****************************************************************/
Debut
Ecran.Ecrire(MessageEnvoye);
Fin Procedure
/****************************************************************/
Procedure EnvoyerMessage2(LibelleSection:Caractere, MotCle:Caractere)
/* Objet : Envoie en message. */
/****************************************************************/
Debut
Ecran.Ecrire("La traduction de '"+MotCle+"' de la section '"+LibelleSection+"' est inexistante.");
Fin Procedure
Principal
/*******/
Debut
...
Si Non FormaterInverseThesaurus("demo", FormatThesaurusTexte, LangueAnglais, LangueChinois, EnvoyerMessage, EnvoyerMessage2) Alors
...
Fin Si
...
Si Non FormaterThesaurus("demo", FormatThesaurusUpsTrn, LangueChinois, EnvoyerMessage) Alors
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |