[4EJIOBEK]

Сообщение от adidas

Код:

edit1.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text))

Помогите переделать эту функцию, чтобы можно было отнять от числа в Edit1 число в Edit2 и вывести в Edit1.

Могу предложить такой вариант:

Код:

 
Var 
      a,b:integer;
      c:integer;
Begin
a:=StrToInt(Edit1.Text);            //передаем значения в переменную
b:=StrToInt(Edit2.Text);            // целого типа
c:=a+b;                                  // или a-b или a*b
Edit1.Text:=IntToStr(c);  

//Если ты хочешь делить то...

Var 
      a,b:integer;
      c:real;
Begin
a:=StrToInt(Edit1.Text);            //передаем значения в переменную
b:=StrToInt(Edit2.Text);            // целого типа
c:=a/b;                                  // делим в вещественного типа
Edit1.Text:=FloatToStr(c);       // <-- !!!
 

Так удобнее