delphi4arab منتديات دلفي للعرب

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

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; 

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

maryhelin

لؤي

S.FATEH