一个简单的for循环的语句

Question

比如我在一个form上，放置了Edit1,Edit2,Edit3,Edit4，四个Edit
我想实现这样的循环
for i := 1 to 4 do begin
  Editi.text := 'aa'
end
就是对Edit的name的一个字符进行循环，不知道怎样实现？

Answer 1

TEdit(FindComponent('Edit'+inttostr(i))).Text

Answer 2

var
  i_loop:integer;
begin
  for i_loop := 0 to self.ComponentCount - 1 do
    if (Components[i_loop] is TEdit) then
      (Components[i_loop] as TButton).Enabled := False;
end;

Answer 3

var
  i_loop:integer;
begin
  for i_loop := 0 to self.ComponentCount - 1 do
    if (Components[i_loop] is TEdit) then
      (Components[i_loop] as TButton).Text := 'aa';
end;

Answer 4

改后代吗：
for i := 1 to 4 do begin
  'Edit'+inttostr(i).text := 'aa'
end

Answer 5

for I := 0 to form1.ComponentCount - 1 do
   TEdit(FindComponent('Edit'+inttostr(i))).Text := 'aa';