5,943
社区成员
发帖
与我相关
我的任务
分享label1,label2,...label15, 如何用for循环 i变量代替 label后面的数字
for i := 1 to 15 do
begin
// 比如这样
label i .text := inttostr(i);
end
begin
// 比如这样
label i .text := inttostr(i);
end
...全文
请发表友善的回复…
发表回复
日立奔腾浪潮微软松下联想 2019-03-20
- 打赏
- 举报
var
i: integer;
Labels: array of TLabel;
begin
Labels := [Label1, Label2, Label3];
for i := Low(Labels) to High(Labels) do
Labels[i].Caption := IntToStr(i);
end;
i: integer;
Labels: array of TLabel;
begin
Labels := [Label1, Label2, Label3];
for i := Low(Labels) to High(Labels) do
Labels[i].Caption := IntToStr(i);
end;
Y.A.K.E 2019-03-20
- 打赏
- 举报
找到了.
Tlabel(FindComponent ('label'+inttostr(i)) as Tlabel).Caption:=inttostr(i);;
