遍历groupbox1的所有控件，让edit和combobox为空

 

1. var
2.         i:integer;
3. begin
4.         for i:=0 to GroupBox1.ControlCount-1 do
5.         begin
6.                 if GroupBox1.Controls[i].ClassType=tedit then
7.                 begin
8.                         (GroupBox1.Controls[i] as tedit).Text:='';
9.                 end;
10.                 if GroupBox1.Controls[i].ClassType=TComboBox then
11.                 begin
12.                         (GroupBox1.Controls[i] as TComboBox).ItemIndex:=-1;
13.                 end;
14.         end;