关于组件的选择

关于组件的选择假设我现在有100个checkbox控件，这100个checkbox分别命名checkbox1－－>checkbox100，因为太多我不想一个一个去点，我现在想使用一个Edit组件，在里面输入组件的序号，然后回车就完成checkbox组件的点击工作，怎么完成这个功能呢。 通过一个比较长的case语句可以实现这个功能，我想根据输入的数字获得相应号码的checkbox的控制权，这样代码比较短一些，这个怎么个写法。FindComponent(const AName: string): TComponent;var sName: String; cComponent: TComponent;begin sName := 'CheckBox' Edit1.Text; cComponent := Self.FindComponent(sName); if (cComponent <> nil) and (cComponent is TCheckBox) then (cComponent as TCheckBox).Checked := True;end;好的谢谢，要是可以使用马上给你结帖