الفاصل العشري

[kachwahed]

السلام عليكم
في الحقيقة لم أفهم المشكلة بالضبط
هذه بعض الملاحظات التي قد تفيدك:
- كما ذكر أخي MjIrIm يمكن كتابةرمز فاصل الآلاف بشكل أفضل:

كود :

Edit2.Text:= FormatFloat('#,##.0', StrToFloat(Edit1.Text));

وهكذا سيظهر بشكل عاد مهما كان طول العدد، ولتفادي مشكلة رمز فاصلا الآلاف يمكن تحديده في البداية:

كود :

ThousandSeparator := ' ';

- نصيحتي حاول استعمال DecimalSeparator بشكل ديناميكي لأن الرمز قد يتغير من مستعمل لآخر، أكتب شيء مثل:

كود :

Edit2.Text := '3'+DecimalSeparator+'1';

-أيضا راجع أمثلة Delphi:

كود :

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