[kadnikov]

Допустим на форме есть 100 элементов Edit.
Edit1-Edit100 соответственно.
Как в цикле For (или в другом) организовать последовательный перебор всех Edit'ов с присвоением какого-либо (одинакового!) значения???

Хотелось бы получить что-то похожее на:

Код:

For i:=1 to 100 do
Form1.Edit[i].color:=clRed;

[Drozh]

Код:

 for i := 0 to ComponentCount-1 do
  if Components[i] is TEdit then
   (Components[i] as TEdit).Color := clRed;

[kadnikov]

Не совсем подходит...
На форме стоит PageControl, а данная функция перебирает все элементы формы... А их там может быть....
Другого способа нет с обращением к конкретному типу элементов сразу?

[PhoeniX]

Сколько их там может быть? 1000? 10000? Не думаю, что больше... В любом случае, думаю, функция будет работать достаточно быстро.
Другой способ - заносить все необходимые экземпляры в массив при старте программы - и перебирать его...

[kadnikov]

ок. Тогда ещё вопрос по данной функции, если перебираем не все элементы формы а все элементы находящиеся в TabSheet1(2,3,4,5...) и нужно не 100 из 100, а с Edit63 по Edit100?

[PhoeniX]

Так и напиши -

Код:

  for i := 0 to TabSheet1.ComponentCount-1 do
    if TabSheet1.Components[i] is TEdit then
      for j := 63 to 100 do
        if (TabSheet1.Components[i] as TEdit).Name = 'Edit' + IntToStr(j) then
          (TabSheet1.Components[i] as TEdit).Color := clRed;

Или как-то таким же раком... не помню точно...