怎样列举Form里的所有TEdit控件？

Question

for i := 0 to ComponentCount - 1 do
  if Components[i] is TEdit then
    Begin
    ...
    end;

Answer 1

for i := 0 to youform.ComponentCount - 1 do
  if (Components[i] is TEdit) then
    Begin
    ...
    end; 
就是这样

Answer 2

我的邮件是[email protected]或[email protected],有意见邮件联系

Answer 3

你等着，我给你原码，而且是列举任何一个窗口的所有edit组件，现在有事，必须要走了