怎么得到在一个panel中的EDIT的个数呀!

Question

怎么得到在一个panel中的EDIT的个数呀!

Answer 1

var
  i,num: Integer;
begin
  num := 0;
  for i := 0 to panel1.ControlCount - 1 do
  if panel1.Controls[i] is TEdit then
  num := num + 1;
  showMessage(IntToStr(num));
end;

Answer 2

procedure TForm1.Button4Click(Sender: TObject);
var
 i,edit_count: Integer;
begin
  edit_count:= 0;
  for i := 0 to Panel1.ControlCount-1 do
  begin
    if (Panel1.Controls[i] is TEdit) then
      inc(edit_count);
  end;
  ShowMessage(IntToStr(edit_count));
end;