我有160个TApdStatusLight类型的对象，
TApdStatusLight1，TApdStatusLight2，... TApdStatusLight160。
如何通过for循环更改NoLitColor，而不必编写160行来更改每一行？
循环更改对象属性（Delphi 2010）
•
问答
bjcjggl06040804 回答：循环更改对象属性（Delphi 2010）
您需要循环地动态创建实例，而不是使用表单设计器。在表单的重写构造函数中或表单的OnCreate事件处理程序中执行此操作。
没有160个字段，每个字段都包含对实例的引用。而是将它们放在一个数组中。这样，如果您需要将更改应用于所有实例，则可以循环执行。