الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة تواجهني في تغيير الفاصل العشر برمجيًا

بدأه medreg في 2 سبتمبر 2009 · 3 رد · 930 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
decimalseparator:=',';
thousandseparator:='.';
currencystring:='';

عندما يكون للحقل من نوع Numerique

عندما وضعت في الحدث OnCreate الثلاث سطور المبينة اعلاه في الحقيقة يعمل بشكل جيد لكن هناك امر لم يكن في الحسبان

وهو الزر الموجود في لوحة المفاتيح والذي يحمل إشارة الفاصلة والنقطة والحذف

عندما تكتب مبلغ او رقم وتريد ان تستخدمه لوضع الفاصلة لا يعمل وهذه المشكلة لاحظتها من قبل عندما تغير في الإعدادت الإقليمية وتضع الفاصلة في مكان النقطة لايعمل وهذ الأ في البرامج التي يتم تثبيتها من خلال المستعمل كهذه البرامج التي ننشأها بالدلفي

اما إذا كانت الإعدادات الإقليمية إفتراضية واقصد الفاصلة لللآف والنقطة للعشري فإن هذا الزر يعمل جيد عندما تستعمله للفاصل العشري ليضع نقطة للفاصل العشري ونفس الشيئ البرامج هذه ان كان افتراضي تستطيع ان تستعمله وان كان اختياري كالسالف الذكر لا تستطيع استعماله

أما إذا كان للحقل من نوع $

لم اجد اي زر يقبل ان تستعمله فاصة

حتى الزر الذي يحمل إشارة الفاصلة وإشارة علامة الإستفهام

علما ان لوحة المفاتيح في وضع FR

ولم يبقى أمامي غير الزر السالف الذكر الموجود يمين لوحة المفاتيح

هذا الزر يعمل لكن يعطيك رسالة خطأ وهي هذه الرسالة

errorb.gif

نرجوا إن كان هناك حل لهذه المشكلة افيدونا به وجزاكم الله عنا كل خير

تم تعديل هذه المشاركة بواسطة medreg في 2 سبتمبر 2009 في 20:54

#2

السلام عليكم

يا أخي أرشد إلى التالي:

أولا قم بتغيير الخيارات الإقليمية و أجعل الأعداد تظهر كالتالي : 1.122.115,00

وفي الكود سورس لكي تجعل العدد يظهر لك مثل هذا : 2.588,00

قم بالتالي:

edit1.Text:=floattostrf(montant,ffnumber,18,2);

montant هو متغير فأنت حر في إختياره

والسلام.

−1

أطلب العم من المهد إلى اللحد

#3

رد النسيق أى حقل بالصورة

post-202601-12633661527145_thumb.jpg

تنويه الإدارة : هذه عضوية  سامي أبو عليوة رحمه الله   


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Php,Asp ,Asp.Net, Projects,Disktop Delphi7,Mssql Server 2008&2005,Access 2007 , Sms Mobile
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#4

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

بارك الله فيكم

لكن لق وجدت الحل

وهو كتابة هذا الكود في BeforPrint للـ Quickrep

decimalseparator:=',';
thousandseparator:='.';

وفي AfterPrint للـ Quickrep

نكتب العكس

decimalseparator:='.';
thousandseparator:=',';

وبالتوفيق

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…