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

Question

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

Answer 1

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

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