|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Суммирование значений Edit
Как сложить значения с 1 по 35 Edit? Делаю так, но результат 0. Запутался.
Код:
var i, i2 : Integer; begin i2 := 0; for i:=1 to 35 do if Components[i] is TEdit then i2:=i2 + StrToInt(TEdit(Components[i]).text); Label1.Caption:=intToStr(i2); end; |