كيغية اجراء عملية حسابية بسيطة

[bassem_43]

مثال سريع

كود :

procedure TForm1.Button1Click(Sender: TObject); var a,b,c:Integer; begin if edt1.Text = '' then edt1.Text := '0'; if edt2.Text = '' then edt2.Text := '0'; a := StrToInt(edt1.Text) ; b := StrToInt(edt2.Text) ; c := a + b; edt3.Text := IntToStr(c); end; end.

احبت ان اضيف ملاحظة عن حلك ان سمحت
الاخ Med-01 يجمع اعداد حقيقية ايضا يعني فيها فاصلة ان صح التعبير
لدلك استخدم دالة FloatToStr بدل دالة IntToStr