Hallo,

ich werfe das Handtuch....... und brauche mal den einen oder anderen Tipp.
Ich erstelle mit Fastreport und Delphi 10.2 einen einfachen Report den ich dann mit PDFExport wandle und in eine Datei schreibe. Das alles klappt 100%. Wenn ich allerdings einen weiteren Report erstelle und exportiere, wird der alte Report nicht überschrieben sonden der neue Report wird an die Datei angehangen. Aus ehemals zwei Seiten sind nun vier geworden.

Auch wenn die Datei im Programm umgenannt wird, bleiben alle alten Reports erhalten und werden auch in die neue Datei geschrieben, als ob Fastreport den Speicher nicht löscht.

SaveDialog.InitialDir := Auswertungsverzeichnis;
SaveDialog.DefaultExt := 'pdf';
SaveDialog.FileName := Format('%s_Query_%s',[lb_Pruefmerkmal.Caption, lb_objekt.Caption]);
if not Savedialog.Execute then exit;

Report_query.Clear;
Report_query.LoadFromFile(Ausdruck_Query_File); // fr3-Datei mit Tabelle
PDFExport1.FileName := ExtractFileName(Savedialog.FileName); // PDF-Ablage
Report_query.PrepareReport(False); // Report ohne Ansicht erzeugen
Report_query.Export(PDFExport1); // Report auf Konverter ausgeben

Also, ich habe eben mal den "Report_query.Export(PDFExport1);" entfernt und einen normalen "Report_query.Print;" eingesetzt und den Report auf den Drucker gejagt. Auch hier das gleiche Ergebnis erst zwei, dann vier, sechs,acht Seiten..... alle alten Reportseiten wurden gespeichert und mit ausgedruckt.

Wie kann ich diese alten Reportdaten aus dem Speicher löschen ? Ein "Report.Clear" bringt nichts. Irgendwie habe ich ein dickes Brett vor dem Kopf, denn dieses Verhalten hatte ich noch im keinem Programm.

Grüße
Lothar

Hallo,
Quick&Dirty?

Report_query.Free;
Report_query:= TXXX.Create;

oder
PDFExport1.Free;
PDFExport1:= TXXX.Create;

Du sagst ja explizit, dass er die alten erzeugten Report-Daten behalten soll:

markieren

Delphi-Quellcode:

Report_query.PrepareReport({ClearLastReport:} False); // Ja, den alten Rotz behalten
Report_query.Export(PDFExport1); // Report auf Konverter ausgeben

OH,
wird Zeit das ich in Rente gehe oder ne neue Brille bekomme. Danke, ich war/bin blind gewesen.

Das ist einer der Gründe warum viele fordern, statt einem Boolean ein Enum zu verwenden, denn dann würe dir das sofort aufgefallen:

markieren

Delphi-Quellcode:

type
  TPrepareReportOption = ( proClearLastReport, proKeepLastReport );

begin
  //...
  Report_query.PrepareReport( proKeepLastReport );
  //...
end;