FAQ von Rene Kadner

Rene's FAQ Liste
Dank auch den Schreibern in die dcl*

Liste der FAQ Einträge "Reports"

Textdatei im QReport lesen

procedure TrptSyslogdatei.QuickReportNeedData(Sender: TObject;
   var MoreData: Boolean);
begin
   inherited;
   if not system.eof(Datei)
  vthen begin
     Try
      readln(Datei, Zeile);
       qrlZeile.caption := trim(Zeile);
       MoreData := true;
     except on Fehler: exception do begin
       qrlZeile.caption := Fehler.Message;
       MoreData := False;
       raise;
       end;
     end;
   end
   else begin
     MoreData := False;
   end;
end;

procedure TrptSyslogdatei.FormDestroy(Sender: TObject);
begin
   Try
     closefile(Datei);
   finally
     inherited;
   end;
end;

procedure TrptSyslogdatei.QuickReportBeforePrint(Sender: TCustomQuickRep;
   var PrintReport: Boolean);
begin
   inherited;
   try
     AssignFile(Datei,sDateiname);
     reset(Datei);
   except
     close;
     raise;
   end;
end;

Seitenanfang