咨询个问题，如何对多个类循环赋值

Question

比如我定义了类
type
MyClass=class
  b:=integer;
end;
a1,a2,a3,a4....an:MyClassfor i:=1 to n do
  a(i).b:=1;                              类视于这样的方式来处理
控件的话可以用
timage(findcomponent('image' + inttostr(i))).Picture.。

Answer 1

定义成数组
type
  MyClass=class
    b:integer;
  end;
var
  a: array [1..n] of MyClass;for i:=1 to n do
  a[i].b:= 1;顺便提一句，记得对象要Create

Answer 2

定义一个数组，或者把创建的对象放到TList之类的列表容器中
for i:=0 to List.Count-1 do
  MyClass(List[i]).b:= 1;