كتابة الأرقام بصيغة الآلاف مئات العشرات

[مبرمج مبتدأ]

السلام عليكم و رحمة الله و بركاته

كيف يمكن كتابة الأرقام يهذه الصيغة
مثال:
000 1 بدلا من 1000
و 000 000 1 بدلا من 1000000
و جزاكم الله خيرا

[mariio]

وعليكم السلام

تفضل اخي

كود :

function FloatToCurrency(const f: double): string; begin Result := FormatFloat('#,###.##;1;0', f); end;

مثال بسيط

كود :

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(FloatToCurrency(100000)); end;

[مبرمج مبتدأ]

جزاك الله خيرا أخي
لكن عند وضع الكود في Edit1 لا يعمل، علما أنه أريــد أن ان تكون الكتابة في Edit على ماذ ذكرت أعلاه بدون استخدام edit Mask

[h-farid]

السلام عليكم و رحمة الله
جرب هذا :

كود :

function FloatToCurrency(const f: double): string; begin Result := FormatFloat('#,###.##;1;0', f); end; procedure TForm1.Edit1Change(Sender: TObject); begin edit2.Text:=FloatToCurrency(strtofloat(edit1.Text)); end;

[mohamed25]

جزاكم الله خيرا