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

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;

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

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

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

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

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



أو دون num3:


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

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

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