Массив компонентов

Обувь для программистов - майкроссовки.

Возможно ли создание массива компонентов? Для показа статуса я использую набор LED-компонентов и хотел бы иметь к ним доступ, используя массив.

Прежде всего необходимо объявить массив:

{10 элементов компонентного типа TLed}
LED : array[1..10] of TLed;

При необходимости динамического создания LED-компонентов организуйте цикл, пример которого мы приводим ниже:

for counter := 1 to 10 do
begin
  LED[counter]:= TLED.Create;
  LED[counter].top := ...
  LED[counter].Left := ...
  LED[counter].Parent := Mainform;   {что-то типа этого}
end;

Если компоненты уже присутствуют на форме (в режиме проектирования), сделайте их элементами массива, например так:

leds := 0;
for counter := 0 to Form.Componentcount do
begin
  if (components[counter] is TLED) then
  begin
    inc(leds);
    LED[leds] := TLED(components[counter]);
  end
end;

Тем не менее у нас получился массив со случайным расположением LED-компонентов. Я предлагаю назначить свойству Tag каждого LED-компонента порядковый номер его расположения в массиве, а затем заполнить массив, используя это свойство:

for counter := 0 to Form.Componentcount do
begin
  if (components[counter] is TLED) then
  begin
    LED[Component[counter].tag] := TLED(components[counter]);
  end
end;

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 630 • TDictionary Custom Sort 6 638 • Fast Watermark Sources 6 413 • 3D Designer 9 354 • Sik Screen Capture 6 744 • Patch Maker 7 131 • Айболит (remote control) 7 136 • ListBox Drag & Drop 5 998 • Доска для игры Реверси 97 582 • Графические эффекты 7 329 • Рисование по маске 6 615 • Перетаскивание изображений 5 487 • Canvas Drawing 5 864 • Рисование Луны 5 589 • Поворот изображения 5 096 • Рисование стержней 3 666 • Paint on Shape 2 895 • Генератор кроссвордов 3 795 • Головоломка Paletto 3 047 • Теорема Монжа об окружностях 3 858 • Пазл Numbrix 2 539 • Заборы и коммивояжеры 3 251 • Игра HIP 2 221 • Игра Go (Го) 2 153 • Симулятор лифта 2 532 • Программа укладки плитки 2 173 • Генератор лабиринта 2 670 • Проверка числового ввода 2 322 • HEX View 2 655 • Физический маятник 2 288