Delphi在循环中获取组件

我有3页的pagecontrol。在每一页上，我都有控件，例如名为edt1的TEdit（在第一页上）、etd2（在第二页上）、edt3（在第三页上）

我想对每个对象进行迭代并设置一个文本值

比如：

 for j := 0 to pages.count-1 do
begin
edt[j].text:= 'something ' + IntToStr(j);
end;

但它不是这样工作的

这应该可以：

for i := 0 to pages.Count - 1 do
begin
    TEdit(FindComponent('edt' + IntToStr(i))).Text := 'something';
end;

---

如果

FindComponent

返回

nil

遍历选项卡上的子控件，控件[]，则应添加一些错误检查