+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حول عنصر edit على delphi7 (/showthread.php?tid=10611)
حول عنصر edit على delphi7 - momowahrane - 27-01-2020
السلام عليكم ورحمة الله تعالى وبركاته
أنا عضو جديد في المنتدى و هدا اول اشتراك
سؤالي هو :
عندي edit1 و edit2 و button
أريد مثلا كتابة الأعداد على edit1 وتجمع على edit2 مثلا : إدا كتبت رقم 1 على edit1 و أضغط على زر button يتحول هدا الرقم الدي هو 1 إلى edit2 و في نفس ال edit1 إعادة كاتبة رقم2 مثلا يتحول إلى edit2 ولكن يضاف إلى الرقم الأول ويصبح 3 معناها 1+2=3 و لكن في نفس ال edit2
جزاكم الله خيرا
RE: حول عنصر edit على delphi7 - أبو معاذ - 27-01-2020
وعليكم السلام ورحمة الله وبركاته ،
أهلا وسهلا بك بيننا.
هذه محاولة على جناح السرعة.
PHP كود :
if edit2.text = '' then
edit2.text := edit1.text
else
edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;
RE: حول عنصر edit على delphi7 - momowahrane - 28-01-2020
(27-01-2020, 10:07 PM)أبو معاذ كتب : وعليكم السلام ورحمة الله وبركاته ،بارك الله فيك اخي ابو معاد على المساعدة سأجربها على بركة الله
أهلا وسهلا بك بيننا.
هذه محاولة على جناح السرعة.
PHP كود :if edit2.text = '' then
edit2.text := edit1.text
else
edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;
RE: حول عنصر edit على delphi7 - momowahrane - 28-01-2020
(27-01-2020, 10:07 PM)أبو معاذ كتب : وعليكم السلام ورحمة الله وبركاته ،
أهلا وسهلا بك بيننا.
هذه محاولة على جناح السرعة.
PHP كود :if edit2.text = '' then
edit2.text := edit1.text
else
edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;
السلام عليكم أخي الكريم
ظهرت لي هده الرسالة ؟؟؟
RE: حول عنصر edit على delphi7 - العيد1403 - 28-01-2020
السلام عليكم
غير الكود التالي :
كود :
else
edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;كود :
else
edit2.text := IntTostr(StrToInt(edit2.text) + StrToint(edit1.text)) ;كود :
else
edit2.text := FloatTostr(StrToFloat(edit2.text) + StrToFloat(edit1.text)) ;RE: حول عنصر edit على delphi7 - momowahrane - 29-01-2020
(28-01-2020, 01:46 PM)العيد1403 كتب : السلام عليكم
غير الكود التالي :
بـهذا الكود :كود :else edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;
وإذا كان الرقم به فاصلة فكتب الكود التالي:كود :else edit2.text := IntTostr(StrToInt(edit2.text) + StrToint(edit1.text)) ;
كود :else edit2.text := FloatTostr(StrToFloat(edit2.text) + StrToFloat(edit1.text)) ; بارك الله فيك أخي العيد الله يجعله في ميزان حسناتك لقد نجت الطريقة