Delphi获得组件循环



我有3页的页面控制。在每个页面上,我都有控件,例如TEdit与名称的edt1(在第一页),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

相关内容

  • 没有找到相关文章

最新更新