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

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

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

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

تفضل اخي

كود :
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

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

كود :
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;

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

مبرمج مبتدأ

mariio

مبرمج مبتدأ

h-farid

mohamed25