Numero de componentes de Quick Report

[ecfisa]

Hola GerTorresM

A modo de ejemplo, agregá 5 TQRLabel al TQuickReport y a cada Tag dale valores de 0 hasta 4, luego desde el form que lo invocas probá este código:

Código Delphi [-]
...
implementation

uses Unit2,   // unidad donde está TQuickReport1
     QRCtrls; // para evaluar TQRLabel

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    // aca doy unos valores para los Caption, en tu caso supongo los llenarás a mano
    for i:= 1 to 5 do TS.Add('ETIQUETA '+IntToStr(i)); 
    with QuickReport1 do
    begin
      for i:= 0 to ComponentCount -1 do
        if Components[i] is TQRLabel then
          with TQRLabel(Components[i]) do Caption:= TS[Tag];
    end;
  finally
    TS.Free;
  end;
  QuickReport1.Preview;
end;
...

Saludos.