我有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