حول عنصر edit على delphi7

[momowahrane]

السلام عليكم ورحمة الله تعالى وبركاته

أنا عضو جديد في المنتدى و هدا اول اشتراك 

سؤالي هو :

عندي edit1 و edit2 و button

أريد مثلا كتابة الأعداد على edit1  وتجمع على edit2 مثلا : إدا كتبت رقم 1 على edit1 و أضغط على زر button يتحول هدا الرقم الدي هو 1 إلى edit2 و في نفس ال edit1 إعادة كاتبة رقم2 مثلا يتحول إلى edit2 ولكن يضاف إلى الرقم الأول ويصبح 3  معناها 1+2=3 و لكن في نفس ال edit2
جزاكم الله خيرا

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
أهلا وسهلا بك بيننا.

هذه محاولة على جناح السرعة.

PHP كود :

if edit2.text = '' then
    edit2.text := edit1.text
else
  edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ; 


[momowahrane]

وعليكم السلام ورحمة الله وبركاته ،
أهلا وسهلا بك بيننا.

هذه محاولة على جناح السرعة.

PHP كود :

if edit2.text = '' then
    edit2.text := edit1.text
else
  edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ; 


بارك الله فيك اخي ابو معاد على المساعدة سأجربها على بركة الله

[momowahrane]

وعليكم السلام ورحمة الله وبركاته ،
أهلا وسهلا بك بيننا.

هذه محاولة على جناح السرعة.

PHP كود :

if edit2.text = '' then
    edit2.text := edit1.text
else
  edit2.text := strToInt(intToStr(edit2.text) + intToStr(edit1.text)) ;
السلام عليكم أخي الكريم 
ظهرت لي هده الرسالة ؟؟؟ 


[العيد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)) ;

[momowahrane]

السلام عليكم

غير الكود التالي :

كود :

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