怎么才能清空 groupbox 里所有edit 框的内容？

Question

如题！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    for i:=0 to GroupBox1.ControlCount-1 do
        if GroupBox1.Controls[i] is TEDit then
            TEdit(GroupBox1.Controls[i]).Text:='';
end;

Answer 2

var 
  i:integer;
begin
  for i:=0 to componentcount-1 do 
    if components[i].parent=groupbox1 then  begin
      if components[i] is TEdit then
        TEdit(components[i]).clear;
      if components[i] is TComboBox then
        TComboBox(components[i]).clear;
      .
      .
      .
    end;
end;