+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 (/showthread.php?tid=6177)
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 13-05-2014
سلامي الى جميع الاعضاء
كيف يمكن جعل الناتج الحسابي في edit10.text or dbedit10.text يكون رقمبن فقط بعد
الفاصلة مثلا 0.00 - 10.75 الخ .. وفي اي حدث
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - snake - 13-05-2014
كود :
edit10.text:= Format('%*.*f', [8, 2, (القيمة)]);متل
2.15688
يتم عرض النتيجة مقربة
كود :
Format('%*.*f', [8, 2, (كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 15-05-2014
تسلم الايادي وان شاء الله ما نفقدكم
كيف يمكن جعل edit1.text لايقبل اكثر من خانتين بعد الفاصلة بدون تقريب (roud)
مثلا 5.32 ولا يقبل 5.325 وفي اي حدث يتم ادخال الكود
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - snake - 17-05-2014
تفضل جرب هدا
كود :
if Edit1.SelStart in [1 .. 5] then
if not(Key in ['0' .. '9', '.', #8]) then
begin
Key := #0;
Exit;
end;
if Pos('.', Edit1.Text) > 0 then
if (Length(Edit1.Text) - (Pos('.', Edit1.Text)) = 2) and (Key <> #8) then
Key := #0;
if Key = '.' then
if Pos('.', Edit1.Text) > 0 then
Key := #0
else if (Key = '.') and (Edit1.SelStart = 1) then
Edit1.Text := Edit1.Text + '0';
Edit1.SelStart := Length(Edit1.Text);كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 17-05-2014
جربت الكود ولكن يطلب معرف الــ Key
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - bassem_43 - 17-05-2014
Shaieb كتب :ضع الكود السابق في الحدث on key press لل edit1 وستنتهي المشكلة ان شاء اللهجربت الكود ولكن يطلب معرف الــ Key
بالتوفيق
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 17-05-2014
اخي بارك الله فيك قمت بالتجربة صحيح ان edit10 لا يقبل الا رقمين بعد الفاصلة وهذا هو طلبي لكن هتاك مشكلة وهي عند ادخال رقم مثلا 2.45 تظهر 20.45 او 1.65 تظهر 10.65 حاولت التغيير في الكود ولم اصل الى حل اكيد عندك علاج لها وسامحني ربما اتعبتك معي .... اعيد واكرر شكري لك وازادك الله من فضله
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 17-05-2014
اخي وجدت الحل يكمن في تغيير هذا الكود ;'0'+Edit1.Text := Edit1.Text الى ;' '+Edit1.Text := Edit1.Text; تم زالة الصفر '0' الحمد لله نجحت العملية والفضل لله وحده ثم اليك شكرا مرة اخرى
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - snake - 17-05-2014
السلام عليكم
من الافضل ان تحدف التالي
كود :
else if (Key = '.') and (Edit1.SelStart = 1) then
Edit1.Text := Edit1.Text + '0';
Edit1.SelStart := Length(Edit1.Text);00.00
ربي معك
كيف يمكن جعل الناتج يكون رقمين بعد الفاصلة 0.00 - Shaieb - 18-05-2014
شكرا جدا جدا انا بصدد عمل منظومة سأحتاج الى مساعدتك عندما تواجهني مشكلة بارك الله فيك وفي امثالك