如何对Edit循环赋值?

Question

比如有Edit1--Edit20,如何用循环语句对Edit赋值?谢谢

Answer 1

for I:= 0 to 20 do
   if (Components[i] is TEdit) then
     TEdit(Components[i]).text := '';

Answer 2

for i:= 1 to 20 do
begin
 TEdit (self.FindComponent('edit' + IntToStr(i))).Text := 
     'edit' + IntToStr(i);         
end;

Answer 3

//对一个窗口中的所有Tedit控件设置 for I:= 0 to Self.ComponentCount-1 do
 begin
    if Self.Components[i] is Tedit then
    begin
       TEdit(Components[i]).Text := 'edit' + IntToStr(i);
    end;
 end;