怎样得出窗体上的控件数目？

Question

怎样得出窗体上的控件数目？
比如：Button类的个数，Edit类的个数.......

Answer 1

var i:integer
begin
  I:=Form1.ComponentCount
end

Answer 2

with form1 do
begin
for i:=0 to ComponentCount-1 do begin 
    if (Components[i] is TControl) then 
          inc(control_count); 
      end;
end; 你要想得到EDIT等的数目，只要将上面的TControl换成相应的类如TEDIT就行了

Answer 3

var
  i: Integer;
  ButtonCount: Integer;
  EditCount: Integer;
begin
  ButtonCount := 0;
  EditCount := 0;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TButton then Inc(ButtonCount) else
    if Components[i] is TEdit then Inc(EditCount) else
    if Components[i] is ...
end;