المشاركات : 8
المواضيع 1
:
: 0
الإنتساب : Jul 2010
السلام عليكم ورحمة الله وبعد
كيف يأخذ العدد من edit1 ويوضع االجزء الصحيح له في edit2 ؟
حاولت وتهت في دوال التحويل : الحرفي , الصحيح , الحقيقي و extended .
ايضا لم افهم extended ؟
المشاركات : 171
المواضيع 41
:
: 0
الإنتساب : Dec 2009
[COLOR="DarkGreen"]وعليكم السلام اخي
بالنسبة للدالة الي تحول بها العدد الحقيقي الى حدد صحيح :[/COLOR]
كود :
edit2.Text:=IntToStr(round(StrToFloat(Edit1.Text))) ;
[COLOR="DarkGreen"]
بالتوفيق[/COLOR]
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان
المشاركات : 8
المواضيع 1
:
: 0
الإنتساب : Jul 2010
بارك الله فيك أخي
جاري التجريب موفق اخي
ما رأيك في floor ؟
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
السلام عليكم ورحمة الله
انتبه Round تقوم بتقريب العدد الى اقرب عدد صحيح وهذا قد يسبب اخطاء عند استخدامها بحسابات مالية
اضافة الى Round و Floor يمكن ايضا استعمال:
Truncate
Frac
Int
راجع Help دلفي لتفاصيل اكثر و ربما امثلة
extended اكبر متغير حقيقي يكون ما بين 3.6 x 10^-4951 و 1.1 x 10^4932
المشاركات : 8
المواضيع 1
:
: 0
الإنتساب : Jul 2010
الشكر كل الشكر لكما على المداخلتين إنني ممتن لكما وفي الحقيقة سأستعملها لحساب الضريبة على الدخل فكتبت الآتي فأين الخلل؟:
edit2.text:= inttostr( Int(strtofloat(edit1.text))) ; u
بالنسبة لأخي ساكن ألف قبة وقبة أقول له إن تقرب 6.8 إلى 7 بينما الأن تقريبها 6 بعبارة أخرى اهمال الجزء العشري دون تقريب
المشاركات : 171
المواضيع 41
:
: 0
الإنتساب : Dec 2009
[COLOR="DarkGreen"]وعليكم السلام اخي
بالنسبة للكود فتصحيحه كاتالي:[/COLOR]
كود :
edit2.Text:=FloatToStr(int(StrToFloat(Edit1.Text))) ;
[COLOR="DarkGreen"]اما بالنسبة للكود الذي قدمته انا فهو يحول العدد الحقيقي الى اقرب عد صحيح بالزيادة او النقصان
بالتوفيق
[/COLOR]
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان
المشاركات : 8
المواضيع 1
:
: 0
الإنتساب : Jul 2010
بارك الله فيك وجازاك عني كل خير لقد مشى معي جيد جدا .
الآن هل لي بسؤالك عن كيف أستثني الفراغ وأجعل جزءه الصحيح 0 أي لو نسي المستخدم إدخال قيمة في edit1 فيتم عرض جزءه الصحيح 0 بدلا من خطأ
المشاركات : 654
المواضيع 34
:
: 106
الإنتساب : Aug 2010
السلام عليكم
كود :
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)));
المشاركات : 8
المواضيع 1
:
: 0
الإنتساب : Jul 2010
وعليكم السلام ورحمة الله وبركاته
بارك الله فيه آسف على تأخيري لأن النت كانت منقطعه عندي
المشاركات : 171
المواضيع 41
:
: 0
الإنتساب : Dec 2009
عكرمة كتب :كيف أستثني الفراغ وأجعل جزءه الصحيح 0
PHP كود :
if Edit1.Text <> '' then
edit2.Text:=FloatToStr(int(StrToFloat(Edit1.Text)))
else
Edit2.Text:='0';
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان
