+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أكتب الأرقام بالحروف (/showthread.php?tid=5038)
كيف أكتب الأرقام بالحروف - maryhelin - 19-03-2013
السلام عليككم ورحمة الله تعالى وبركاته
من أجل تحويل مبلغ فاتورة مثلا من
مبلغ الفاتورة : 10000.00
إلى حدد مبلغ هذه الفاتورة بـــ عشرة آلاف فكرت بوضع ملف نصي يحتوي اندكس بالأرقام على التوالي مع أسمائها ويسدعيها لترجمة المبلغ حرفيا
ممكن فكرة أبسط
كيف أكتب الأرقام بالحروف - لؤي - 20-03-2013
maryhelin كتب :و عليكم السلام
ممكن فكرة أبسط
هناك دالة تقوم بتحويل الأرقام إلى كلمات ConvertToWords يبقى دعمها للكلمات العربية محل بحث
ألقي نظرة(مجربة على XE2):
PHP كود :
uses NumberToWords;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
words:string;
begin
words := ConvertToWords(StrToFloat(Edit1.Text), (UseCurrencyCheck.State = cbChecked));
ResultLabel.Caption := words;
ShowMessage(words);
end;
كيف أكتب الأرقام بالحروف - S.FATEH - 20-03-2013
فقط قم بالبحث بالمنتدى و ستجد مرادك !!!
http://www.delphi4arab.net/forum/search.php