Возможно ли создание массива компонентов? Для показа статуса я
использую набор LED-компонентов и хотел бы иметь к ним доступ, используя
массив.
Прежде всего необходимо объявить массив:
{10 элементов компонентного типа TLed}
LED : array[1..10] of TLed;
При необходимости динамического создания LED-компонентов организуйте цикл,
пример которого мы приводим ниже:
for counter := 1 to 10 dobegin
LED[counter]:= TLED.Create;
LED[counter].top := ...
LED[counter].Left := ...
LED[counter].Parent := Mainform; {что-то типа этого}end;
Если компоненты уже присутствуют на форме (в режиме проектирования), сделайте
их элементами массива, например так:
leds := 0;
for counter := 0 to Form.Componentcount dobeginif (components[counter] is TLED) thenbegin
inc(leds);
LED[leds] := TLED(components[counter]);
endend;
Тем не менее у нас получился массив со случайным расположением
LED-компонентов. Я предлагаю назначить свойству Tag каждого LED-компонента
порядковый номер его расположения в массиве, а затем заполнить массив, используя
это свойство:
for counter := 0 to Form.Componentcount dobeginif (components[counter] is TLED) thenbegin
LED[Component[counter].tag] := TLED(components[counter]);
endend;
Если вам нужен двухмерный массив, то для формирования индекса понадобится другая
хитрость, например, хранение в свойстве Hint информации о времени создания
компонентов.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Массив компонентов", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!