Как искать компоненты по признаку?

[DeveloPerchik]

Здравствуйте!
Как найти на форме неизвестное кол-во компонентов по определённому признаку, например найти все однотипные компоненты или все с идентичным Tag ?

[Человек_Борща]

У контейнеров есть методы перебора компонент на форме. Ну или контролов.

for i:=0 to Form12.ComponentCount -1 do
begin
  if (Components[i] is TEdit) then
  begin
    (Components[i] as TEdit).Tag := ололо
  end;
end;

for i:=0 to Form12.ControlCount -1 do
begin
  if (Controls[i] is TEdit) then
  begin
    (Controls[i] as TEdit).Tag := ололо
  end;
end;

Не обязательно перебирать все типы. Достаточно найти общего предка с признаками, присущими всем, нужным вам, компонентам.

[DeveloPerchik]

Спасибо за быстрый ответ. Но хотелось бы без перебора всех, тк на форме может быть 50-100-200компонентов, а назначить что-то нужно только примерно 20%, то есть 80% перебора получается излишним. Встроенной функции какой-нить такой нет?

Хотел от обратного пойти - компоненту назначить на событие OnCreate запрос нужных параметров, но увы, у компонентов нет такого события.

Есть другие предложения?

[Пепел Феникса]

Встроенной функции какой-нить такой нет?

если бы и была, то все равно нужно перебирать все компоненты.
ибо нельзя заранее сказать какой из них тот или не тот.

[Stilet]

то есть 80% перебора получается излишним.

Во-первых: С чего ты взял что будет падение скорости?
Во-вторых: Заведи себе список типа TComponentList, в который прикрепляй компоненты при их создании (это в том случае если создаешь динамически).
Несколько таких списков дадут наборы групп компонентов, собранных по определенному признаку. Если будешь проходить по ним перебор получится меньше.

[DeveloPerchik]

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

Во-вторых: Заведи себе список типа TComponentList, в который прикрепляй компоненты при их создании (это в том случае если создаешь динамически).Несколько таких списков дадут наборы групп компонентов, собранных по определенному признаку. Если будешь проходить по ним перебор получится меньше.

Это тоже понятно, просто думал может есть какая-то готовая встроенная функция. Спасибо.