+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كتابة الأرقام بصيغة الآلاف مئات العشرات (/showthread.php?tid=6013)
كتابة الأرقام بصيغة الآلاف مئات العشرات - مبرمج مبتدأ - 12-03-2014
السلام عليكم و رحمة الله و بركاته
كيف يمكن كتابة الأرقام يهذه الصيغة
مثال:
000 1 بدلا من 1000
و 000 000 1 بدلا من 1000000
و جزاكم الله خيرا
كتابة الأرقام بصيغة الآلاف مئات العشرات - mariio - 12-03-2014
وعليكم السلام
تفضل اخي
كود :
function FloatToCurrency(const f: double): string;
begin
Result := FormatFloat('#,###.##;1;0', f);
end;مثال بسيط
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FloatToCurrency(100000));
end;كتابة الأرقام بصيغة الآلاف مئات العشرات - مبرمج مبتدأ - 12-03-2014
جزاك الله خيرا أخي
لكن عند وضع الكود في Edit1 لا يعمل، علما أنه أريــد أن ان تكون الكتابة في Edit على ماذ ذكرت أعلاه بدون استخدام edit Mask
كتابة الأرقام بصيغة الآلاف مئات العشرات - h-farid - 12-03-2014
السلام عليكم و رحمة الله
جرب هذا :
كود :
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 - 16-03-2014
جزاكم الله خيرا