Delphi7學習(關於像控件數組一樣的東西)

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

一次性給多個Edit賦值~``如果沒有的話就是0

這個findcomponent一定要記下來