5,388
社区成员
发帖
与我相关
我的任务
分享求一连续组件赋值语句。
Label1.Caption := '';
Label2.Caption := '';
Label3.Caption := '';
Label4.Caption := '';
Label5.Caption := '';
Label6.Caption := '';
Label7.Caption := '';
Label8.Caption := '';
Label9.Caption := '';
.....
想写一循环赋值。
Label2.Caption := '';
Label3.Caption := '';
Label4.Caption := '';
Label5.Caption := '';
Label6.Caption := '';
Label7.Caption := '';
Label8.Caption := '';
Label9.Caption := '';
.....
想写一循环赋值。
...全文
请发表友善的回复…
发表回复
风之谷 2011-01-19
- 打赏
- 举报
for i:=1 to N do
begin
TLabel(FindComponent('Label'+Inttostr(I))).Caption:='xxxxx';
end;
begin
TLabel(FindComponent('Label'+Inttostr(I))).Caption:='xxxxx';
end;
