Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Синтаксис , Массивы

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

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

Возможно ли создание массива компонентов? Для показа статуса я использую набор 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 информации о времени создания компонентов.

Статья Массив компонентов раздела Синтаксис Массивы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2013-03-21 06:13:45 :: re:Массив компонентов

пользователь: Oleg.

а зачем Hint тратить ? Если кроме Тag-есть TagFloat? (специально для двумерных -"запасной" (пусть и Float...да , и тем более Float- вообще можно развернуть))


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Массивы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 09:38:30/0.036962985992432/2