将Form中几个Edit控件中的内容清空，或付一个相同值，不用一一付值或清空的方法，能解决吗？

Question

用循环实现
for I := 0 to 10 do
begin
  Tedit(findcomponent('edit'+ intostr(I))).text := '';
end;

Answer 1

for i:=0 to ComponentCount-1 do
   if Components[i] is TEdit then
      TEdit(Components[i]).Text:='AA';

Answer 2

同意：blackfiles(从来是我伤心)

Answer 3

同意：blackfiles(从来是我伤心) 

Answer 4

补充一点：
如果是若干个TEdit中的几个的话，可以用tag属性，对它进行分类。
则是以下Codes:
for i:=0 to ComponentCount-1 do
  if (Components[i] is TEdit) AND (Components[i].Tag = 1) then
      TEdit(Components[i]).Text:='AA';