Convertir un nombre en lettes arabes

Soyez le premier à donner votre avis sur cette source.

Vue 7 855 fois - Téléchargée 1 551 fois

Description

Si Vous avez des dificlter a ecrir un montant en arabe ceci est pour vous et peut etre vous y contriburer a le perfectionner d'aantage

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
23
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
9 avril 2016

ce ci fonctionne biens mais j'aurais besoin qu'il convertie un chiffre en virgule,
(label1.caption:=arb_nombre(strtoFloat(edit1.text));) ???
j'attends votre reponses
Messages postés
10
Date d'inscription
dimanche 19 septembre 2004
Statut
Membre
Dernière intervention
12 avril 2009

l'ecriture bizzar que vous voyé c'est une écriture en arabe
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
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Interessant comme source mais j'ai quelque chose de complètement indescriptible dans mon editeur :
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.
Messages postés
65
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
16 décembre 2011

Dans le script reçu, delphi a (je pense) remplacé la police d'origine de Label1 par une police qui n'a pas le jeu de caractères arabes, alors ça n'a pas marché du premier coup !
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)
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Un conseil/remarque, au lieu des longues séries de :
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.