同时选取多个相同标签的问题。

Question

示例：
label1.caption:=1;
label2.caption:=4;
label3.caption:=1;
label4.caption:=6;
label5.caption:=1;
label6.caption:=2;if label(?).caption=1 thenlabel1.caption and label3.caption and label5.caption   =3;
我知道上面的格式和语句都是错误的，请大侠们帮忙用规范的语句帮我改一下。

Answer 1

for I := 0 to ComponentCount - 1 do

Answer 2

delphi是不支持这种标号写法的，循环吧，或者用RTTI

Answer 3

用Label(findcomponent('label'+inttostr(i))).caption := 

Answer 4

for I := 0 to ComponentCount - 1 do
  begin
    if components[i] is tlablecaption
      then
        begin
           if tlablecaption(componets[i]).caption='1'
              then
                begin
                    label1.caption:='3';
                    label3.caption:='3';
                    label5.caption:='3';
                end;
        end;
  end;