فيما يخص تحويل المبالغ الرقمية إلى كتابة حرفية

[merouane]

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

الأمر بسيط



عند quickReport التي سنسميها QuickReport3
ستستعمل QRDBText نسميه QRDBText4 حيث Field سيأخذ قيمة MT_NET
استعملت في المثال جدول آخر لكنها نفي الطريقة
اذهب إلى Events أو Evènements وبالضبط عند OnPrint اضغط بالفأرة ثم اكتب

كود :

implementation uses unit2; [color=Blue]wordsالوحدة التي تتضمن الإجراء [/color] procedure TQuickReport3.MTQRDBTextPrint(sender: TObject; var Value: String); begin Value:=words(StrToFloat(Value),'سنتيم', 'سنتيم', 'سنتيم','دينار', 'دينار', 'دينار' , false); end;