ما هي طريقة تحويل المبلغ الموجود في QRExpr إلى حروف بلغة الفرنسية لطباعتها
#1
السلام عليكم
ما هي طريقة تحويل المبلغ الموجود في QRExpr إلى حروف بلغة الفرنسية لطباعتها
الرد
#2
وعليكم السلام ورحمة الله تعالى وبركاته.

حمل الدالة من هنا http://www.delphi4arab.net/forum/showthr...p?tid=4847

في الحدث OnPrint لـ QRExpr ضع الكود التالي:

كود :
procedure TForm2.QRExpr1Print(sender: TObject; var Value: String); begin Value:=ChifToFr (StrToCurr(Value)); end;
الرد
#3
شكرا لك أخي سأجرب ولي عودة إن شاء الله
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم