如何对QRLable进行动态赋值呀？

Question

我在报表中有10个QRLable,我怎么才能对它们进行赋值呢：
for i:=1 to 10 do
  QRLable(i).caption:=inttostr(i);
这句话为什么不行？应该怎么改呀？
 

Answer 1

var
i:integer;
begin
for i:=0 to ComponentCount-1 do begin
if (Components[i] is TQRLable)  then
TQRLable(Components[i]).Caption:=IntToStr(i+1)
end;
end;

Answer 2

var
i:integer;
begin
 for i:=1 to 10 do
   begin
      TPanel(FindComponent('Tqrlable'+inttostr(i))).Caption:=inttostr(i);
    end;