paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 04:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Clear needs an argument to clear data or not

Browse Source 
git-svn-id: trunk@41569 -
This commit is contained in:
michael 2019-03-03 09:20:03 +00:00
parent 9d20e859b5
commit 2430174213
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-report/src/fpreport.pp
View File

@ -1664,7 +1664,7 @@ type
destructor Destroy; override;
class function ReportKindToResultType(const AType: TFPReportFieldKind): TResultType;
Function StreamToReportElements(aStream : TStream) : TFPObjectList;
Procedure Clear;
Procedure Clear(ClearData : Boolean = True);
Procedure SaveDataToNames;
Procedure RestoreDataFromNames;
procedure WriteElement(AWriter: TFPReportStreamer; AOriginal: TFPReportElement = nil); override;
@ -8520,7 +8520,7 @@ begin
inherited Destroy;
end;
procedure TFPCustomReport.Clear;
procedure TFPCustomReport.Clear(ClearData : Boolean = True);
Var
P : TFPReportCustomPage;
@ -8535,7 +8535,8 @@ begin
FIsFirstPass := False;
// Collections
FreeAndNil(FExpr); // Special case, recreated on run
FReportData.Clear;
if ClearData then
FReportData.Clear;
if Assigned(FPages) then
begin
While PageCount>0 do