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

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

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

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

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

cargem كتب :اعمل كذا
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
الآن وصلت الفكرة Smile

تقبل الله صيامكم وقيامكم

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

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

السندبااد

cargem

السندبااد

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

السندبااد

محمد دوب