Список в цикл

Здравствуйте,
как записать в виде цикла без явного перечисления?

cxGrid1DBTableView1A1.Visible:=true;
cxGrid1DBTableView1A2.Visible:=true;
cxGrid1DBTableView1A3.Visible:=true;
cxGrid1DBTableView1A4.Visible:=true;
cxGrid1DBTableView1A5.Visible:=true;
...

Количество полей больше 100

_Тимур_,

for i:=1 to 99 do begin
  TcxGrid1DBTableView(FindComponent('cxGrid1DBTableView1A'+i.ToString)).Visible:=true;
end;

Гениально и просто, спасибо

_Тимур_	↑
Гениально и просто, спасибо

Но стоит переименовать колонку или например удалить одну из......

_Тимур_,

возможно так будет удобнее:

 for i := 0 to ComponentCount - 1 do
  if (Components[i] is TcxGrid1DBTableView) and (тут какое-то дополнительное условие если нужно) then
   TcxGrid1DBTableView(Components[i]).Visible := True

for i:=0 to ComponentsCount - 1 do begin
  if Components[i] is TcxGrid1DBTableView then
    ( Components[i] as TcxGrid1DBTableView).Visible:=true;
end;

Так больше похоже на рабочий кот.

Колонки могут быть в другом модуле (форме), и в ComponentCount их нет

makhaon,

Да ты издеваешься, что, раньше на минуту написать нельзя было?))

YuRock,



DimaBr,

а нефиг в другой модуль лезть :) пишите там, где нужно.

makhaon	↑
а нефиг в другой модуль лезть :) пишите там, где нужно.

Вьюшка может храниться в TDataModule, а отображаться на форме. И это нормально !
Зачем перебирать все компоненты, если у вьюшки есть список колонок ?