ما هي طريقة تحويل المبلغ الموجود في 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;