Одновременное изменение свойств компонентов

[alexdelphi]

Мне надо очистить текст в Label. Если их один-два, то я просто пишу:

  Label1.Caption := '';
  Label2.Caption := '';

Но если я имею 10 ярлыков, то это превращается в проблему, т.к. приходится печатать 10 строк однообразного кода, что чревато описками. Недавно я поступил так: объявил массив lab указателей на TLabel и в обработчике создания формы записал выделение памяти под его элементы. В дальнейшем писал так:

  var i: integer;
  for i:=1 to 2 do lab[i]^.Caption := '';

Какие существуют альтернативные пути синхронного изменения свойств нескольких компонентов парой строк кода?

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

1. Почему работает как вариант lab[i]^.Caption, так и lab[i].Caption (и, более того, при нажатии точки после lab[i] работает IntelliSense во втором случае)?

синтаксис такое позволяет(ибо объекты хранятся по ссылке) но лучше по человечески это делать.(хм, интелисенс)

2. Какие существуют альтернативные пути синхронного изменения свойств нескольких компонентов парой строк кода?

FindComponent + поиск.

[alexdelphi]

Спасибо! Взял пример в Delphi 2010 по FindComponent, запустил и таки понял, что этот пример делает.

[Аватар]

Controls и ControlCount. Искать TLabel. Можно в Label.Tag поместить признак того, что Caption нужно очищать. Если Label-ы в разных контейнерах, то искать начиная с формы и рекурсивно по встреченным контейнерам

[alexdelphi]

Сообщение от Аватар

Можно в Label.Tag поместить признак того, что Caption нужно очищать.

Про Tag вообще не подумал. А поиск Label'ов - в принципе, приличный вариант. Могу считать тему закрытой.