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

Question

我有160个相同类型的对象'TApdStatusLight'TApdStatusLight1，TApdStatusLight2，... TApdStatusLight160我如何用for循环更改NoLitColor而不用写160行改变每一个人？

Answer 1

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

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