السلام عليكم
تجدون هنا وحدة لتحويل الأرقام لحروف و لكن الميزة عن باي الوحدات أنها تتبع اسلوب جديد بالتحويل و هذا مما مكنها من التعامل مع الأرقام الكبيرة جدا مليار أو بليار و حتى انها قابلة للتوسيع بسهولة لتشمل أرقام أكبر من ذلك بكثير
لن أطيل عليكم
بالمرفقات ملف الوحدة فقط و مرفق أخر لبريمج يعتمد على هذه الوحدة
شكرا جزيلا لجميع أعضاء ومشرفين هذا المنتدى العظيم وتقبل الله صيامكم وقيامكم .
بيدينى خطأ فى الكود التالى
Application.MainFormOnTaskbar := True;
karika2 كتب :بيدينى خطأ فى الكود التالى
application.mainformontaskbar := true;
ليس خطأ .. أنت تستخدم نسخة قديمة من دلفي
على كل حال احذف السطر و سيشتغل معك البرنامج .
يا اخي انه يحول برموز غريبة
أربع عشرة ألف و مئة و اثنان و خمسون
كيف اجعل التحويل بالفرنسية
ar1[1] := 'واحد' ;
ar1[2] := 'اثنان' ;
ar1[3] := 'ثلاثة' ;
ar1[4] := 'أربعة' ;
ar1[5] := 'خمسة' ;
ar1[6] := 'ستة' ;
ar1[7] := 'سبعة' ;
ar1[8] := 'ثمانية' ;
ar1[9] := 'تسعة' ;
ar1[10] := '' ;//
ar1[11] := 'ألف' ;
ar1[12] := 'ألفان' ;
ar1[13] := 'ثلاثة ألاف' ;
ar1[14] := 'أربعة ألاف' ;
ar1[15] := 'خمسة ألاف' ;
ar1[16] := 'ستة ألاف' ;
ar1[17] := 'سبعة ألاف' ;
ar1[18] := 'ثمانية ألاف' ;
ar1[19] := 'تسعة ألاف' ;
ar1[20] := '' ;//
ar1[21] := 'مليون' ; //10 power 6
ar1[22] := 'مليونان' ;
ar1[23] := 'ثلاثة ملايين' ;
ar1[24] := 'أربعة ملايين' ;
ar1[25] := 'خمسة ملايين' ;
ar1[26] := 'ستة ملايين' ;
ar1[27] := 'سبعة ملايين' ;
ar1[28] := 'ثمانية ملايين' ;
ar1[29] := 'تسعة ملايين' ;
ar1[30] := '' ;//
ar1[31] := 'مليار' ; //10 power 9
ar1[32] := 'ميلياران' ;
ar1[33] := 'ثلاثة مليارات' ;
ar1[34] := 'أربعة مليارات' ;
ar1[35] := 'خمسة مليارات' ;
ar1[36] := 'ستة مليارات' ;
ar1[37] := 'سبعة مليارات' ;
ar1[38] := 'ثمانية مليارات' ;
ar1[39] := 'تسعة مليارات' ;
ar1[40] := '' ;//
ar1[41] := 'بليون' ;//10 power 12
ar1[42] := 'بليونان' ;
ar1[43] := 'ثلاثة بليونات' ;
ar1[44] := 'أربعة بليونات' ;
ar1[45] := 'خمسة بليونات' ;
ar1[46] := 'ستة بليونات' ;
ar1[47] := 'سبعة بليونات' ;
ar1[48] := 'ثمانية بليونات' ;
ar1[49] := 'تسعة بليونات' ;
ar1[50] := '' ;//
ar1[51] := 'بليار' ; //10 power 15
ar1[52] := 'بليونان' ;
ar1[53] := 'ثلاثة بليارات' ;
ar1[54] := 'أربعة بليارات' ;
ar1[55] := 'خمسة بليارات' ;
ar1[56] := 'ستة بليارات' ;
ar1[57] := 'سبعة بليارات' ;
ar1[58] := 'ثمانية بليارات' ;
ar1[59] := 'تسعة بليارات' ;
//you can just expand this lis
ar5[0] := '' ;//
ar5[1] := '' ;
ar5[2] := 'ألف' ;
ar5[3] := 'ألاف' ;
ar5[4] := 'مليون' ;
ar5[5] := 'مليونات' ;
ar5[6] := 'مليار' ;
ar5[7] := 'مليارات' ;
ar5[8] := 'بليون' ;
ar5[9] := 'بليونات' ;
ar5[10] := 'بليار' ;
ar5[11] := 'بليارات' ;
//you can just expand this lis with new numbers
ar2[0] := '' ;
ar2[1] := 'عشرة' ;
ar2[2] := 'عشرون' ;
ar2[3] := 'ثلاثون' ;
ar2[4] := 'أربعون' ;
ar2[5] := 'خمسون' ;
ar2[6] := 'ستون' ;
ar2[7] := 'سبعون' ;
ar2[8] := 'ثمانون' ;
ar2[9] := 'تسعون' ;
ar3[0] := '' ;
ar3[1] := 'مئة' ;
ar3[2] := 'مئتان' ;
ar3[3] := 'ثلاث مئة' ;
ar3[4] := 'اريع مئة' ;
ar3[5] := 'خمس مئة' ;
ar3[6] := 'ست مئة' ;
ar3[7] := 'سبع مئة' ;
ar3[8] := 'ثمان مئة' ;
ar3[9] := 'تسع مئة' ;
ar4[0] := '' ;//
ar4[1] := 'أحد' ;
ar4[2] := 'اثنا' ;
ar4[3] := 'ثلاث' ;
ar4[4] := 'أربع' ;
ar4[5] := 'خمس' ;
ar4[6] := 'ست' ;
ar4[7] := 'سبع' ;
ar4[8] := 'ثمان' ;
ar4[9] := 'تسع' ;