مشكلة في العمليات الحسابية

[السندبااد]

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

حاولت القيام بعملية الجمع في الدلفي ولكن كان دوماً يعطيني خطأ
فهمت من الخطأ أني أجمع String مع Integer
ولكن الأمر ليس كذلك تكرموا بالنظر للمرفق المسمى جمع لشتاهدوا

أيضاً المرفق الثاني salary هو عملية بسيطة لحساب زيادة الراتب بعد منحة معينة
وهو واضح ولكنه أيضاً يعطيني أخطاء
وتقبل الله صيامكم وقيامكم

[cargem]

اعمل كذا
Edit1.Text :=IntToStr(5+5) ;

[السندبااد]

اعمل كذا
Edit1.Text :=IntToStr(5+5) ;

جزاك الله خيراً
طيب بالنسبة للمرفق الثاني salary تظهر نفس المشكلة تماماً
وجربت ما تفضلت به فلم ينفع الحل !!!

[محمد عبد العزيز]

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

اخي السندباد راجع الدرس الاول من دورة دلفي للعرب
http://www.delphi4arab.net/forum/forumdisplay.php?f=27
ما هو مكتوب بالedit نص ويبقى كذلك
لتتعامل معه كقيمة وليس نص عليك بالتحويل من نص الى قيم ثم بعد القيام بالعمليات الحسابة حوله الى نص مرة اخرى قبل عرضه
مثال لديك مكون edit وكتبت به القيمة 5
عند الضغط على الزر تتضاعف
لو كتبت الكود التالي بمكون زر

كود :

Edit1.text:=edit1.text+edit1.text;

النتيجة تكون 55 وليس 10
لانك تاخذ النص '5' وتضيف اليه النص '5' و النتيجة النص '55'
الصحيح كما سبق تحويل النص '5' الى قيمة 5 و استخدامها ومنه يصبح الكود الصحيح

كود :

Edit1.text := IntTostr( StrtoInt(Edit1.text)+ StrToInt(Edit1.Text) );

ان اختتلط عليك الأمر يمكن استخدام متغيرات

كود :

var x : integer; Begin x := StrToInt(Edit1.text); x := x + x; Edit1:= IntToStr(x); end;

[السندبااد]

بارك الله فيك أستاذي الحبيب B.M.AbdelAziZ
الآن وصلت الفكرة
تقبل الله صيامكم وقيامكم

[محمد دوب]

السلام عليكم
الجواب عن الجمع

كود :

;((EDIT3.TEXT:=FLOATTOSTR(strtofloat(EDIT1.TEXT)+strtofloat(EDIT2.TEXT