Изменить атрибуты объектов с помощью al oop (Delphi 2010)

Question

У меня 160 объектов одного типа TApdStatusLight, TApdStatusLight1, TApdStatusLight2, ... TApdStatusLight160. Как я могу изменить NoLitColor с помощью для l oop без необходимости писать 160 строк для изменения каждой?

Answer 1

Вам нужно создавать экземпляры динамически, в al oop, а не с помощью дизайнера форм. Сделайте это в переопределенном конструкторе вашей формы или в обработчике событий OnCreate для формы.

Не используйте 160 полей, каждое из которых содержит ссылку на экземпляры. Вместо этого держите их в массиве. Таким образом, если вам нужно применить изменения ко всем экземплярам, ​​вы можете сделать это в al oop.