السلام عليكم
ما هي طريقة تحويل المبلغ الموجود في QRExpr إلى حروف بلغة الفرنسية لطباعتها
وعليكم السلام ورحمة الله تعالى وبركاته.
حمل الدالة من هنا
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;
شكرا لك أخي سأجرب ولي عودة إن شاء الله