Цитата:
Сообщение от Alegun
Код:
for i:=1 to 35 do inc(i2, StrToInt((FindComponent('Edit' + IntToStr(i)) as TEdit).Text));
|
При вводе любых чисел результат = 4. Решил задачу, может кому понадобится. Спасибо за помощь!
Код:
var
i, i2 : Integer;
begin
i2 := 0;
for i:=1 to 35 do
if Components[i] is TEdit then Inc(i2, StrToIntDef(TEdit(Components[i]).text, 0));
Label1.Caption:=intToStr(i2);
end;