CONVERTIR UN NOMBRE EN LETTES ARABES
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
21 mai 2005 à 21:45
cs_Korda Messages postés 23 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 9 avril 2016 - 9 avril 2016 à 16:15
cs_Korda Messages postés 23 Date d'inscription mardi 25 mai 2004 Statut Membre Dernière intervention 9 avril 2016 - 9 avril 2016 à 16:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31535-convertir-un-nombre-en-lettes-arabes
https://codes-sources.commentcamarche.net/source/31535-convertir-un-nombre-en-lettes-arabes
9 avril 2016 à 16:15
(label1.caption:=arb_nombre(strtoFloat(edit1.text));) ???
j'attends votre reponses
26 juin 2005 à 13:26
tu as raison ; par ce que votre system ne suport pas les font en arabe ;
tu doit allez au paneau de configuration et ajouter la langue et les fonts arabe pour vous pouvez voire
6 juin 2005 à 15:24
1:begin result:='æÇÍÏ'; exit; end;
2:begin result:='ÅËäÇä'; exit;End;
3:begin result:='ËáÇËÉ'; exit;end;
4:begin result:='ÃÑÈÚÉ'; exit;End;
5:begin result:='ÎãÓÉ'; exit;End;
6:begin result:='ÓÊÉ'; exit;End;
7:begin result:='ÓÈÚÉ'; exit;End;
je ne sais pas si cela va ressortir ici mais je pense qu'il faut une police spécifique pour ton prog non?
++,
JMP77.
23 mai 2005 à 16:22
Il faut donc signaler que ça ne marche qu'avec une police dont le jeu de caractère (CHARSET) est ARABIC_CHARSET (dans l'inspecteur d'objet ou dans Printer.Font.Charset)
21 mai 2005 à 21:45
case n of
1:begin result:=''; exit; end;
2:begin result:=''; exit;End;
3:begin result:=''; exit;end;
4:begin result:=''; exit;End;
5:begin result:=''; exit;End;
6:begin result:=''; exit;End;
7:begin result:=''; exit;End;
8:begin result:=''; exit;End;
9:begin result:=''; exit;End;
et je m'arrêterai là pour la démo, le code serait plus court et plus lisible si vous écriviez :
case n of
1..9 :begin result:=''; exit; end;
Appliqué au reste de l'unité, le code devrait être réduit de 50% au moins.