+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ عند جمع عددين من مكونين Edit (/showthread.php?tid=5878)
خطأ عند جمع عددين من مكونين Edit - karika2 - 23-01-2014
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;
الخطأ يظهر فى سطر الاحمر.....
خطأ عند جمع عددين من مكونين Edit - karika2 - 23-01-2014
خلاص ياجماعة عرفت الحل
المشكلة عندى كانت فى المتغيرات كان المفروض أكتبها كدة
Num1,Num2:Integer;
Num3:String;
أنا بعتذر على لسرعة وضع الاستفسار..يمكنكم غلق الموضوع اذا اردتم
خطأ عند جمع عددين من مكونين Edit - Najy Ibraheem - 23-01-2014
السلام عليكم...
طالما أن num3 معرف أيضاً كـ Integer فالجمع يكون بشكل مباشر، ثم تحويل num3 إلى string:
كود :
num3 := num1 + num2;
Edit3.Text := IntToStr(num3);أو دون num3:
كود :
Edit3.Text := IntToStr(num1 + num2);نرجو الاستفادة و السلام.
خطأ عند جمع عددين من مكونين Edit - karika2 - 25-01-2014
شكراّ لك أخى , Najy Ibraheem
خطأ عند جمع عددين من مكونين Edit - Houdini - 26-01-2014
ملاحظة : الـ edit يقبل الحروف و عند محاولتك تحويلها لاعداد وجمعها سيحدث استناء
عليك بفلترة مدخلات او اضافة try ...except