Показать сообщение отдельно
  #1  
Старый 06.02.2014, 02:17
GrabbeR GrabbeR вне форума
Новичок
 
Регистрация: 15.03.2012
Сообщения: 53
Версия Delphi: 7
Репутация: 10
По умолчанию Суммирование значений 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;
Ответить с цитированием