Есть два Edit. Допустим, 1 и 5. Нужно посчитать сумму всех чисел, что между ними и...

Question

Есть два Edit. Допустим, 1 и 5. Нужно посчитать сумму всех чисел, что между ними и вывести в Label.

Answer 1

На форму кидаешь кнопку ( Button )

Кликаешь по ней два раза, открывается код с процедурой ButtonClick
Между begin и end пишешь код

Label1.Caption:=inttostr(strtoint(Edit1.Text)+strtoint(Edit2.Text));

Вроде так, если нигде не ошибся)

Comments

Не оно. Надо посчитать сумму цифр между цифрами, а не сумму самих чисел.

---

тогда после строки с Procedure пишешь

---

var

---

i, summa: integer

---

i, summa: integer;

---

потом begin

---

for i:=strtoint(Edit1.Text) to strtoint(Edit2.Text) do

---

summa:=summa+i;

---

Label1.Caption:=inttostr(summa);

---

end;