delphi 清空（重置）groupbox里面所有控件的值

 for i := 0 to rzGroupBox4.ControlCount - 1 do
  begin
    if rzGroupBox4.Controls[i].ClassType = tedit then
    begin
      (rzGroupBox4.Controls[i] as tedit).Text := '';
    end;
    if rzGroupBox4.Controls[i].ClassType = TComboBox then
    begin
      (rzGroupBox4.Controls[i] as TComboBox).ItemIndex := -1;
    end;
  end;

对于=、as的用法可以参考如下代码修改：区别暂时未知，效果一样

var
  i: integer;
begin
  for i := 0 to form1.ControlCount - 1 do
    if Controls[i] is TEdit then
      Tedit(Controls[i]).Clear;
      //Tedit(Controls[i]).Text:='';   也可
end;