Как сумировать Edit-ы

[tomax83]

Как сумировать Edit-ы , не по названию а только те например фон у которых зеленного цвета,

[Stilet]

for i:=0 to ControlsCount-1 do
 if (Controls[i] is TEdit)and(TEdit(Controls[i]).color=clgreen) then
  sum:=sum+StrToIntDef(TEdit(Controls[i].text,0);

Где sum - переменка аккумулятор

[tomax83]

Если делаю глобальные переменные var i,sum,ControlsCount:integer; то

for i:=0 to ControlsCount -1 do
if (Controls[i] is TEdit)and(TEdit(Controls[i]).color=clGreen) then
sum:=sum+StrToIntDef(TEdit(Controls[i]).text,0);

Выдает ошибку Project1.exe raised exception class ElistError with messege 'List index out of bounds (5)'. Process stopped. Use Step or run to continue.

если локальные переменные var i,sum,ControlsCount:integer;
то результат получается 0
Где собака зарыта. Заране благодарен.

[=master=]

Где собака зарыта.

Собака порылась в ControlsCount, а потому, что надо думать когда копируешь.
А вот подумайте и скажите, почему все-таки такая разница результата между глобальными и локальными?

[tomax83]

я новичёк так можно сказать без опыта подскажите пожалуйста, непонятноооо

[Stilet]

Собака порылась в ControlsCoun

Писал с потолка, так что действительно мог ошибиться в имени свойства.

[tomax83]

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

я новичёк так можно сказать без опыта подскажите пожалуйста, непонятноооо

Большое спасибо, думать конечно надо что копируешь, ну если нет опыта куда деваться. Разобрался. Респект Stilet и =master=.

ну а этот код кто не хочет думать а ищет ответ sum:=0;

for i:=1 to 4 do
 if (Controls[i] is TEdit)and(TEdit(Controls[i]).color=clGreen) then
   sum:=sum + StrToInt(TEdit(Controls[i]).text);
   Label1.Caption:=intToStr(sum);

4ка это количество Edit которые надо просмотреть

Если edit расположены на форме то работает а вот если edit расположены на вкладке TabSheet то опять ошибка Выдает ошибку Project1.exe raised exception class ElistError with messege 'List index out of bounds (1)'. Process stopped. Use Step or run to continue.

[Stilet]

а вот если edit расположены на вкладке TabSheet то опять ошибка

Да может. Controls выдает только те кто расположен в контейнере, относительно которого Controls вызываются, но не вложенные.
Тебе нужно вместо Controls использовать доступ к списку компонентов в приложении через Components и ComponentCount. Схема та же.

[Serge_Bliznykov]

а вот если edit расположены на вкладке TabSheet то опять ошибка

ну так надо контролы перебирать не на форме, на самом TabSheet

если не ошибаюсь, то это можно записать так:

for i:=0 to TabSheet1.ControlsCount-1 do
 if (TabSheet1.Controls[i] is TEdit) 
      and 
    (TEdit(TabSheet1.Controls[i]).color=clgreen) then
       sum:=sum + StrToInt(TEdit(TabSheet1.Controls[i]).text);

[tomax83]

Огромное спасибо и уважуха. Работает. Вы просто боги программирования.