Agregar hojas en qreport

[jachguate]

Empezado por Caro

Hola Jackguate

Hola Caro, supongo que me hablas a mi: jachguate, ¿cierto?

Añadí una banda de detalle al reporte, con un TQRLabel, que se llamará qrlLinea; y se implementará los métodos BeforePrint, para abrir el archivo, OnNeedData para imprimir cada línea y AfterPrint para cerrar el archivo. También añadiremos un miembro en la parte privada de la clase, de nombre FTexto y tipo TextFile

El código quedará algo asi:

Código Delphi [-]
procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  AssignFile(FTexto, 'c:\datos.txt');
  ReSet(FTexto);
end;

procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
var
  linea : string;
begin
  MoreData := not eof(FTexto);
  if MoreData then
  begin
    ReadLn(FTexto, Linea);
    qrlLinea.caption := Linea;
  end;
end;

procedure TQuickReport2.QuickRepAfterPrint(Sender: TObject);
begin
  CloseFile(FTexto);
end;

No he comprobado nada, así que el código podria contener errores de sintaxis, y hasta lógicos, pero la idea es esa. Con el tema comprendido, podras corregirlos (si los hay) por tus propios medios.

Hasta luego.