代码重用，10个checkbox控制对应的10个edit的enabled属性

Question

你先用checkbox与edit做一个组件，然后在这个组件中完成你的要求，以后你要用到这个组件，只要直接调用就行了

Answer 1

procedure TForm1.CheckBox1Click(Sender: TObject);
var i: integer;
    Component: TComponent;
begin
  if Sender is TCheckBox then
  begin
    i := strtoIntDef(Copy(TCheckBox(Sender).Name, 9, 2), 1);
    if FindComponent('Edit' + Inttostr(i)) <> nil then
    begin
      TEdit(FindComponent('Edit' + Inttostr(i))).enabled := TCheckBox(Sender).Checked;end;
    
  end;
end;

Answer 2

procedure TForm1.CheckBox1Click(Sender: TObject);
var i: integer;
begin
  if Sender is TCheckBox then
  begin
    i := strtoIntDef(Copy(TCheckBox(Sender).Name, 9, 2), 1);
    if FindComponent('Edit' + Inttostr(i)) <> nil then
       TEdit(FindComponent('Edit' + Inttostr(i))).enabled := TCheckBox(Sender).Checked;
  end;
end;

Answer 3

var j,count:integer;
count:=Form1.ComponentCount; 
j:=1;    // j 用来遍历所有控件
    repeat
      if Components[j] is TEdit then
      if j:= strtoIntDef(Copy(TCheckBox(Sender).Name, 9, 2), 1);
      TTEdit (Components[j]).enabled:=TCheckBox(Sender).Checked;
      j:=j+1;
    Until j=Count ;