[GrabbeR]

Как сложить значения с 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;

[Alegun]

Можно ещё и так

Код:

...
 for i:=1 to 35 do inc(i2, StrToInt((FindComponent('Edit' + IntToStr(i)) as TEdit).Text));
...

З.Ы. Или ваш вариант, но только счетчик компонентов начинается с нуля, т.е. надо for i:=0 to 35

[GrabbeR]

Сообщение от 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;

[poli-smen]

Сообщение от GrabbeR

При вводе любых чисел результат = 4.

Значит у Edit-а в который ты вводишь имя не входит в диапазон 'Edit1'..'Edit35', а ведь именно это было в условии задачи?

Сообщение от GrabbeR

Решил задачу, может кому понадобится. Спасибо за помощь!

Код:

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;

Только всех компонентов на форме может быть и не 35 штук, а больше или меньше - тогда получим проблему. И индексируются компоненты не с единицы, а с нуля.

Вот так будет правильно:

Код:

for i := 0 to ComponentCount - 1 do

Осталось только разобраться что означает выражение "сложить значения с 1 по 35 Edit".

[GrabbeR]

Вывожу значения Text из Edit'ов. Как сложить значения в сумму?

[poli-smen]

Сообщение от GrabbeR

Вывожу значения Text из Edit'ов. Как сложить значения в сумму?

Преобразуй эти строки в числа (с помощью StrToInt или StrToIntDef или TryStrToInt) и накапливай их в числовой переменной.

[GrabbeR]

Решил. Вот, может кому понадобится. Спасибо всем за помощь и наводки!

Код:

var
  i, q : Integer;
  s : String;
begin
  q := 0;
  for i := 0 to 34 do
  begin
    s := TEdit(FindComponent('Edit' + IntToStr(i + 1))).Text;
    q := q + StrToIntDef(s, 0);
  end;
  Label1.Caption := IntToStr(q);
end;

[Alegun]

Много лишних преобразований, строчка из второго поста полностью рабочая, проверял, лишь замените StrToInt на StrToIntDef раз вам такое не подходит