عمل sum

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

أخي إذا انت بتجمع العددين من Edit فهو كالتالي

procedure TForm1.Button1Click(Sender: TObject);

var

sum:integer;

begin

sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text);

edit3.text:=IntToStr(sum);

end;

هنا قمنا بتعريف متغير من نوع sum

ثم جمعنا محتوي Edit1 و Edit2 مع مراعات ان تكون دائما ارقم لا حروف

وأخيرا طباعة الناتج بـ Edit 3

شكراً خي Borland

وبارك الله فيك

السلام عليكم

ما ذكره الأخ صحيح

اقتباس

ثم جمعنا محتوي Edit1 و Edit2 مع مراعات ان تكون دائما ارقم لا حروف

وأخيرا طباعة الناتج بـ Edit 3

لتفادي ذلك استخدم try... except

 try
  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text);
  edit3.text:=IntToStr(sum);
 except
  ShowMessage('Enter a number please!');
 end;

CIONO1