Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Компоненты » Как работать с компонентами по их индексу

Как работать с компонентами по их индексу

Автор:

Допустим у Вас есть на форме компоненты TLabel с именами Label1, Label2, ..., Label10. И вам необходимо изменить или прочитать у каждого компонента одно или несколько свойств. Чтобы не делать это вручную, сделаем это в цикле, найдя каждый компонент по его имени.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: byte;
  Lab: TComponent;
begin
  for i := 1 to 10 do 
  begin
    Lab := FindComponent('Label' + IntToStr(i));
    (Lab as TLabel).Caption := IntToStr(i);
  end;
end;