QReport sin usar BD

[*Caro*]

Hola yomismo24, para conseguir lo que quieres debes usar el evento OnNeedData del QuickResport.

En el evento BeforePrint del QuickReport, abrimos el archivo para poder leerlo despues.

Código Delphi [-]
procedure TForm3.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 AssignFile(Archivo, 'c:\Archivo.txt');
 Reset(Archivo);
end;

En el evento OnNeedData del QuickReport recorremos todo el archivo y cada linea que leamos lo asociamos a nuestro QrLabel, donde el QrLabel deberas colocarlo en tu BandaDetail para que se vayan imprimiendo todas las lineas de tu archivo.

Código Delphi [-]
procedure TForm3.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
 Linea : string;
begin
  MoreData := not eof(Archivo);
  if MoreData then
  begin
    Readln(Archivo, Linea);
    QrLabel.caption := Linea;
  end;
end;

Y en el evento AfterPrint del QuickReport, cerramos el archivo.

Código Delphi [-]
procedure TForm3.QuickRep1AfterPrint(Sender: TObject);
begin
 CloseFile(Archivo);
end;

Saluditos