{有很多个TEdit的控件，如果用函数来实现控件的的属性，那么如何实现每个控件不必重新写一便？}

Question

过程定义：
procedure  TBaseFM1.EditOption(Edit:TEdit;flag:boolean);
begin
   if flag=true then
     Edit.Visible:=true
   else
     Edit.Visible:=false;
end;调用过程：
procedure TBaseFM1.ComboBox3Change(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 8 do
  if j<strtoint(ComboBox3.text) then
    EditOption(Edit,true) //这里的Edit是我要它的属性改变的其他的窗体上的
                         //8个Edit之一
  else
    EditOption(Edit2,false);
  {有很多个TEdit的控件，如果用函数来实现控件的的属性，那么如何实现每个控件不必重新写一便？}

Answer 1

你把Edit改成动态创建，用数组表示，这样不就可以用
一个循环写出来了？
其实老老实实一个个写出来也可以啊。

Answer 2

procedure AllEdit(Sender: TWinControl;flag:boolean);
var
  i                 : integer;
begin
  for i := 0 to Sender.ControlCount - 1 do
    if Sender.Controls[i] is TEdit then
      (Sender.Controls[i] as TEdit).Enabled := flag;
end;