تحويل الأعداد الي حروف بالإنجليزية.

[بن دهيبة]

السلام عليكم ورحمة الله تعالى وبركاته.

دالة تحويل الأعداد الي حروف بالإنجليزية وهو في المرفق.

برمجته بتعديل على كود تحويل الارقام الى حروف بالفرنسية من هنا http://delphi4arab.net/forum/showthread.php?tid=4847

وهنا كود تحويل الى العربية http://delphi4arab.net/forum/showthread.php?tid=9181

[بن دهيبة]

هناك خطأ مطبعي في الكود

الخطأ الأول:

كود :

1: Millier:=' mille '+ Centaine(i mod 1000);

الصواب:

كود :

1: Million:=' un million '+ millier(i mod 1000000); //Centaine تصحيح

الخطأ الثاني عدم ادراج السطر التالى:

كود :

0: str:='zero';

الوحدة في المرفق مصححة.