哪位高手请指教!谢了.

Question

我想给一系列的lable的caption动太赋值.是从lable7-lable15.请问如何动太去做.
如果用循环怎么做.lable是在一个容器中,但是不是所有的label.
是只给指定的几个赋值:lable7--lable8.

Answer 1

我想用循环做,如果lable7--lable100.应该怎么做?

Answer 2

for i := 7 to 8 do
begin
  TLabel(FindComponent('Label'+ IntToStr(i))).Caption := IntToSt(i);
end;

Answer 3

你可以把Label7——Label100做成数组，具体如下：
var lst: TStrings;
begin
  lst := TStringList.Create(nil);
  lst.AddObject('', Label7);
  lst.AddObject('', Label8);
 ……
  lst.AddOjbect('', Label100);
  lst.Free;
end;
然后你就可以通过循环来实现：
for i := 0 to lst.Count - 1 do
begin
  TLabel(lst.Objects[i]).Caption := ' ';
end;OK？