控件遍历的写法问题

Question

在form上有n个TEdit,name命名规则为：Edit1,Edit2,....,Editn如在VFP可以这样确定控件:
for i=1 to n
   j=allt(str(i))
   str=thisform.edit&j.value  //以这种方式来确定控件
   ..........
endfor那位高人可以告诉我，如何在DELPHI中用类似的写法实现

Answer 1

var str1:string;
    str:array[0..100] of string;for i:=1 to n do
begin
  str1:='edit'+inttostr(i);
  str[i]:=(findcomponent(str1) as Tedit).text;//str[i]就是每個edit中的內容了。
end;

Answer 2

for i := 0 to Form1.ControlCount-1 do
    if Controls[i].ClassName = 'TEdit' then
      (Controls[i] as TEdit).Text := 'GOOD TEST';

Answer 3

1
for i:= 0 to form1.ComponectCount do
begin
  if form1.Componect[i] is TEdit then ....2 可以用控件数组
edit:=array [0..100] of TEdit

Answer 4

firetoucher(风焱) 已经给出正确答案了