使用循环更改对象属性（Delphi 2010）

【问题标题】：Change Objects Attributes with a loop (Delphi 2010)使用循环更改对象属性（Delphi 2010）
【发布时间】：2020-03-18 10:25:54
【问题描述】：

我有 160 个相同类型的对象TApdStatusLight， TApdStatusLight1，TApdStatusLight2，...TApdStatusLight160。如何使用 for 循环更改 NoLitColor 而无需编写 160 行来更改每一行？

【问题讨论】：

【解决方案1】：

您需要在循环中动态创建实例，而不是使用表单设计器。在表单的重写构造函数或表单的OnCreate 事件处理程序中执行此操作。

没有 160 个字段，每个字段都包含对实例的引用。而是将它们放在一个数组中。这样，如果您需要对所有实例应用更改，您可以循环执行。

【讨论】：