خطأ عند جمع عددين من مكونين Edit

[karika2]

procedure TForm1.Button1Click(Sender: TObject);
var
Num1,Num2,Num3 :Integer;
begin
Num1 := StrToInt(Edit2.Text);
Num2 :=StrToInt(Edit1.Text);
Num3 :=IntTostr(Num2+Num1);
Edit3.Text :=Num3;
end;

الخطأ يظهر فى سطر الاحمر.....

[karika2]

خلاص ياجماعة عرفت الحل
المشكلة عندى كانت فى المتغيرات كان المفروض أكتبها كدة
Num1,Num2:Integer;
Num3:String;

أنا بعتذر على لسرعة وضع الاستفسار..يمكنكم غلق الموضوع اذا اردتم

[Najy Ibraheem]

السلام عليكم...

طالما أن num3 معرف أيضاً كـ Integer فالجمع يكون بشكل مباشر، ثم تحويل num3 إلى string:

كود :

num3 := num1 + num2; Edit3.Text := IntToStr(num3);

أو دون num3:

كود :

Edit3.Text := IntToStr(num1 + num2);

نرجو الاستفادة و السلام.

[karika2]

شكراّ لك أخى , Najy Ibraheem

[Houdini]

ملاحظة : الـ edit يقبل الحروف و عند محاولتك تحويلها لاعداد وجمعها سيحدث استناء
عليك بفلترة مدخلات او اضافة try ...except