[ApxaHGe1]

var
str:integer;
begin
str:=StrToInt(Edit1.Text)-StrToInt(Edit2.Text);
Edit1.Text:=IntToStr(str);

[adidas]

Всем привет. Есть вопрос: допустим, есть число в Edit1 (его в Edit1 вводить не нужно, уже это число записано в Edit1) и нужно от этого числа отнять второе число, которое находится в Edit2 (это число также уже записано в Edit2) и вывести решение в Edit1. И аналогичная вторая процедура, только нужно добавить (+) в числу в Edit1 число в Edit2 и вывести в Edit1. Желательно пример... Заранее спасибо. П.С. Все облазил и ничего не нашел... Наверное, плохо искал

[Sharky]

в эдите у тебя строка а в математике работают с числами а не со строками StrToInt(edit.text) перевод из строки в цифру )

[adidas]

Спс за ответ. Вот, что сделал:

Код:

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

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

[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);       // <-- !!!
 

Так удобнее