求助！！

Question

var
  s:string;
  edt : TEdit;
begin
  for ....
  begin
    edt := FindComponent('Edit'+inttostr(i));
    if edt<>nil then
      s := edt.text; 
  end;
end; 

Answer 1

最好使用控件数组：E:array[0..3] of TEdit-----------------------
E[0]:=Edit1;
...
E{3}:=Edit4;-----------------------for i:=0 to 3 do
begin
  s:=E[i].text
end;

Answer 2

我是想对一组TEdit进行操作。

Answer 3

for i := 0 to componentcount - 1 do
begin
  if components[i] is tedit then
    s := tedit(components[i]).text;
end;