rt

解决方案 »

  1.   

    var 
      I: Integer;
    begin
      for  I := 0 to Self.ComponentCount - 1 do
      begin
        if (((Self.Components[I]) is TLabel) then
        begin
          if ((Self.Components[I]) as TLabel).Tag = 5 then
            ((Self.Components[I]) as TLabel).Caption := 'aaaa';
        end;
      end;
    end;
      

  2.   

    for  I := 0 to Self.ComponentCount - 1 do
          begin
            if ((Self.Components[I]) is TLabel) then
              begin
                if ((Self.Components[I]) as TLabel).Tag = 2 then
                  labelstring:=((Self.Components[I]) as TLabel).Caption ;
              end;
          end;
    为什么得到的是最后一个呀,而不是第2个
      

  3.   

    for  I := 0 to Self.ComponentCount - 1 do
      begin
        if (Self.Components[I] is TLabel) then
        begin
          if ((Self.Components[I]) as TLabel).Tag = 2 then
          begin
            labelstring:=((Self.Components[I]) as TLabel).Caption ;
            break;
          end;
        end;
      end;