سؤال آخر مهم

السلام عليكم

اولا : السؤال موجه للمشرفين يعني الاعضاء غير مقبول منهم الاجابة ؟!!

ثانيا :اعتذر على التطفل وسأحاول الاجابة على السؤال

edit3.Text:=inttostr(strtoint(edit1.text)+strtoint(edit2.Text));

اذا كان محتوى الـ edit ليس عددا ستظهر رسالة خطأ. يمكن التاكد من محتوى edit بالدالة الاتية .

function isnum(s:string):boolean;
var a:integer;
begin
try
a:=strtoint(s);
result:=true;
except
result:=false;
end;
end;

هكذا لن تظهر رسالة الخطأ , يمكنك عمل ماتريده ( اظهار رسالة خطأ خاصة او .. ) .

تحياتي