如何用循环控制给多个lalel的caption赋值?这些lalel的位置是已经设定好了的,
不能更改。使用控件数组吗?

解决方案 »

  1.   

    你可以遍历FORM上的VCL,判断是TLABLE然后赋值
      

  2.   

    呵呵,可惜delphi没有控件数组〉。
    给你2个方法:
    1.如果知道各Label的name,那末就挨个写吧:P
    2.如果不知道,可以历遍所有Tlabel控件    for i:=0 to ComponentCount-1 do
        begin
            if Components[i] is TLabel then
            begin
                TLabel(Components[i]).Caption:='标签文字';
            end;
        end;当然你也可以用所有Label的Tag来标识控件,在上面判断就成了
      

  3.   

    for i:1 to form1.componentcount-1 do
    begin
         if form1.components[i] is tlabel then
         begin
              (form1.components[i] as tlabel).caption:='label'+inttostr(i);
         end;
    End;
      

  4.   

    楼上的方法可能不行:因为各个组的值是不同的,必须先取得该组的序号,然后根据序号对该组内的各个label填值。
      

  5.   

    LABEL有个TAG属性看到没有?可以用用。