问题简单，分数多多~~~~请进

Question

var
  a: TComponent;for i := 1 to n do
begin
  a := QRReport1.FindComponent(Format('qrlabel%d', [i]));
  if (a <> nil) and (a is TQrLabel) then
    TQrLabel(a).Caption := listbox1.Items[i - 1];
end;

Answer 1

j: =1;
for i:= 0 to form1.ComponentCount-1 do
begin
   if (form1.components[i] is tlabel) and (form1.components[i] as tlabel).name='qrlabel'+inttostr(j) then
    begin
         (form1.components[i] as tlabel).caption:=Listbox1.items[j-1];
    end;
end;