+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 (/showthread.php?tid=3523)
الصفحات:
1
2
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - عكرمة - 21-10-2011
السلام عليكم ورحمة الله وبعد
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 ؟
حاولت وتهت في دوال التحويل : الحرفي , الصحيح , الحقيقي و extended .
ايضا لم افهم extended ؟
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - King SofT - 22-10-2011
[COLOR="DarkGreen"]وعليكم السلام اخي
بالنسبة للدالة الي تحول بها العدد الحقيقي الى حدد صحيح :[/COLOR]
كود :
edit2.Text:=IntToStr(round(StrToFloat(Edit1.Text))) ;[COLOR="DarkGreen"]
بالتوفيق[/COLOR]
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - عكرمة - 22-10-2011
بارك الله فيك أخي
جاري التجريب موفق اخي
ما رأيك في floor ؟
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - محمد عبد العزيز - 23-10-2011
السلام عليكم ورحمة الله
انتبه Round تقوم بتقريب العدد الى اقرب عدد صحيح وهذا قد يسبب اخطاء عند استخدامها بحسابات مالية
اضافة الى Round و Floor يمكن ايضا استعمال:
Truncate
Frac
Int
راجع Help دلفي لتفاصيل اكثر و ربما امثلة
extended اكبر متغير حقيقي يكون ما بين 3.6 x 10^-4951 و 1.1 x 10^4932
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - عكرمة - 23-10-2011
الشكر كل الشكر لكما على المداخلتين إنني ممتن لكما وفي الحقيقة سأستعملها لحساب الضريبة على الدخل فكتبت الآتي فأين الخلل؟:
edit2.text:= inttostr( Int(strtofloat(edit1.text))) ; u
بالنسبة لأخي ساكن ألف قبة وقبة أقول له إن تقرب 6.8 إلى 7 بينما الأن تقريبها 6 بعبارة أخرى اهمال الجزء العشري دون تقريب
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - King SofT - 24-10-2011
[COLOR="DarkGreen"]وعليكم السلام اخي
بالنسبة للكود فتصحيحه كاتالي:[/COLOR]
كود :
edit2.Text:=FloatToStr(int(StrToFloat(Edit1.Text))) ;[COLOR="DarkGreen"]اما بالنسبة للكود الذي قدمته انا فهو يحول العدد الحقيقي الى اقرب عد صحيح بالزيادة او النقصان
بالتوفيق
[/COLOR]
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - عكرمة - 24-10-2011
بارك الله فيك وجازاك عني كل خير لقد مشى معي جيد جدا .
الآن هل لي بسؤالك عن كيف أستثني الفراغ وأجعل جزءه الصحيح 0 أي لو نسي المستخدم إدخال قيمة في edit1 فيتم عرض جزءه الصحيح 0 بدلا من خطأ
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - Agmcz - 25-10-2011
السلام عليكم
كود :
if Edit1.Text = '' then
Edit2.Text := IntToStr(0)
else
if Edit1.Text = ' ' then
Edit2.Text := IntToStr(0)
else
Edit2.Text := FloatToStr(int(StrToFloat(Edit1.Text)));كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - عكرمة - 29-10-2011
وعليكم السلام ورحمة الله وبركاته
بارك الله فيه آسف على تأخيري لأن النت كانت منقطعه عندي
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 - King SofT - 30-10-2011
عكرمة كتب :كيف أستثني الفراغ وأجعل جزءه الصحيح 0
PHP كود :
if Edit1.Text <> '' then
edit2.Text:=FloatToStr(int(StrToFloat(Edit1.Text)))
else
Edit2.Text:='0';
بالتوفيق