كيف أكتب الأرقام بالحروف

[maryhelin]

السلام عليككم ورحمة الله تعالى وبركاته
من أجل تحويل مبلغ فاتورة مثلا من
مبلغ الفاتورة : 10000.00
إلى حدد مبلغ هذه الفاتورة بـــ عشرة آلاف فكرت بوضع ملف نصي يحتوي اندكس بالأرقام على التوالي مع أسمائها ويسدعيها لترجمة المبلغ حرفيا
ممكن فكرة أبسط

[لؤي]

ممكن فكرة أبسط

و عليكم السلام
هناك دالة تقوم بتحويل الأرقام إلى كلمات 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]

فقط قم بالبحث بالمنتدى و ستجد مرادك !!!
http://www.delphi4arab.net/forum/search.php