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

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

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

اخي السندباد راجع الدرس الاول من دورة دلفي للعرب
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;