各位先進好！ 視窗上有多個Edit，經常需要將其中幾個Edit的visible設為false 如下列寫法太繁瑣： Edit2.visible:=false; Edit5.visible:=false; Edit7.visible:=false; Edit8.visible:=false; Edit9.visible:=false; Edit15.visible:=false; 請問有沒有較簡單的方法，謝謝！

You may be interested in FindComponent, ComponentCount, Components method/property. You can also make use of the Tag property of every component.

感謝前輩William的回應！  我現在使用下列方式：將全部EDIT的Visible設為:true;

 I:integer;
 ...
  For i:=0 to Componentcount-1 do
  begin
   if Components[i].Classtype=TEdit then
    begin
     TEdit(Form1.Components[i]).visible:=false;
    end;
  end;

然後再根據需要一些Edit的visible 設為false（如上） 但我不知如何用FindComponent和Tag寫的較簡單些，如方便能否舉一個示例，謝謝

 I:integer;
 ...
  For i:=0 to Componentcount-1 do
  begin
   if (Components[i].Tag in [1,2,3]) and (Components[i] is TEdit) then
    begin
     TEdit(Form1.Components[i]).visible:=false;
    end;
  end;    ...
TEdit(Form1.FindComponent('Edit1')).Visible := False;    

前辈回应的真快呀,再次感谢!     我将需要显示的edit的tag全设为:1，需要隐藏的edit的tag保持:0   Code 如下:

 
   For i:=0 to Componentcount-1 do
  begin
   if (not (Components[i].Tag in [1,2,3])) and (Components[i].Classtype=Tedit) then
    begin
     Tedit(Form1.Components[i]).visible:=false;
    end;
  end;

这样就可以了。 但是我不太明白为什么 tag要设1,2,3, 将需要显示的edit的tag全设为1， (not (Components[i].Tag in [1,2,3]))改为Components[i].Tag<>1 这样不是更简略吗？ 我想多设几个tag值是不是另有好处？

This is just an example  >