Cita:
Empezado por Caro
Hola Jackguate
|
Hola Caro, supongo que me hablas a mi: jac
hguate, ¿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.