Delphi7学习(关于像控件数组一样的东西)

  for i :=1 to 10 do
  begin
    b[i-1]:=strtointdef(Tedit(findcomponent('edit'+inttostr(i))).text,0);
  end;
 

一次性给多个Edit赋值~``如果没有的话就是0

这个findcomponent一定要记下来