تغيير صيغة الرقم من 1000 إلى 1,000

Unit
SysUtils

FormatFloat('#,##0.00',Number)

قم بمراجعة Delphi Help

سوف تجد كل التعليمات الخاصة FormatFloat

نسيت حاجة بسيطة ان هذا الموضوع بيتعمد ايضاً على إعدادات الويندوز المحلية

مميز كالعادة اخي swift جيد

السلام عليكم

ان كنت تستعمل قاعدة معطيات وكان الحقل عددي

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

الأخ Swift بالنسبة للفورمات لم يشتغل معي في جميع الأرقام وإليك هادين المثالين :

الأول يظهر خطأ مع أرقام في هدا المستوى 0,000,000.000 و 0,000.000 و 00,000.000

وهدا هو الكود الدي قمت باستخدامه :

 
QRLabel17.Caption:=FormatCurr('#,##0.000',StrToCurr(QRLabel11.Caption) + StrToCurr(QRLabel12.Caption) + StrToCurr(QRLabel15.Caption));</P>

الثاني يظهر بشكل صحيح مع أرقام في هدا المستوى : 0,000,000.000

QRLabel86.Caption:=FormatCurr('#,##0.000',StrToCurr(QRLabel17.Caption) + StrToCurr(QRLabel44.Caption) + StrToCurr(QRLabel71.Caption));

المشكلة أن الكود اشتغل على نفس مستوى الأرقام مرة بنجاح ومرة بالفشل ...!!!???

اتمنى أن اجد عندكم حل لهده المشكلة ...

أخوكم : فرج غيث

جرب أخى طريقتى وإن شاء الله تفلح

Label4.Caption:=FormatFloat('#,##0.00',StrToCurr(Label1.Caption) + StrToCurr(Label2.Caption) + StrToCurr(Label3.Caption));

السلام عليكم ،،،

بارك الله فيك أخي على ردك .

ولكن يا أخي لم تنجح معي العملية لا أعرف ما هو السبب .

هذه رسالة الخطأ التي تظهر :

'11,276.920' is not a valid floating point value

مع أنها اشتغلت مع بعض الأرقام كما ذكرت لك سابقاً .

الله المستعان

أخى الكريم موضوعك بسيط جداً فقط إستعمل Delphi Help حسب احتياجك

أنظر الى البحث

The following table shows some sample formats and the results produced when the formats are applied to different values:

Format string-	1234	-1234	0.5	0
1234	-1234	0.5	0
0	1234	-1234	1	0
0.00 	1234.00	-1234.00	0.50	0.00
#.##	  1234	-1234	.5	
#,##0.00	1,234.00	-1,234.00	0.50	0.00
#,##0.00;(#,##0.00)	1,234.00	(1,234.00)	0.50	0.00
#,##0.00;;Zero 	1,234.00	-1,234.00	0.50	Zero
0.000E+00   	1.234E+03  -1.234E+03	5.000E-01	0.000E+00
#.###E-0	  1.234E3	-1.234E3	5E-1	0E0

بارك الله فيك أخي Swift على هذا التجاوب ، وجعله الله في ميزان حسناتك .