解决方案 »

  1.   

     for i:=0 to ComponentCount-1 do
      begin
        if Components[i] is TEdit then
        begin
          //清空文本框
          if(Components[i].Tag = 21)or(Components[i].Tag = 32) then
             TEdit(Components[i]).Clear;
        end   
      end;
      

  2.   

    定义数组 
    EditArray : array[0..100] of TEdit;
    把你的edit控件跟数组绑定
    EditArray[0]:=edit1;
    EditArray[1]:=edit2;
    ...
    然后操作那些数组就可以了。