delphi4arab منتديات دلفي للعرب

(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)) ; 


(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)) ;
السلام عليكم أخي الكريم 
ظهرت لي هده الرسالة ؟؟؟ 


(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)) ; بارك الله فيك أخي العيد الله يجعله في ميزان حسناتك لقد نجت الطريقة