Quellcode durchsuchen

* Fix bug #33400, clear should also clear run-time objects

git-svn-id: trunk@38469 -
michael vor 7 Jahren
Ursprung
Commit
ba97e919e6
1 geänderte Dateien mit 2 neuen und 0 gelöschten Zeilen
  1. 2 0
      packages/fcl-report/src/fpreport.pp

+ 2 - 0
packages/fcl-report/src/fpreport.pp

@@ -7817,6 +7817,8 @@ Var
   P : TFPReportCustomPage;
 
 begin
+  // Previous run objects
+  EmptyRTObjects;
   // Variables
   FRTCurPageIdx := -1;
   FDateCreated := Now;