Подписаться на RSS рассылку
Главная » Статьи по 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;

См. также: Найти компонент по его имени

Просмотров: 3073

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта