Ver Mensaje Individual
  #2  
Antiguo 04-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita