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

* Release expression nodes for variables

Browse Source 
git-svn-id: trunk@38441 -
This commit is contained in:
michael 2018-03-06 22:23:29 +00:00
parent eecce3d8f4
commit 32c36ea1d5
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1412,6 +1412,7 @@ type
Procedure SaveValue; virtual;
Procedure RestoreValue; virtual;
Protected
Procedure ReleaseExpressionNodes;
Procedure GetRTValue(Var Result : TFPExpressionResult; ConstRef AName : ShortString); virtual;
procedure GetRTExpressionValue(Var Result : TFPExpressionResult; ConstRef AName : ShortString); virtual;
Public
@ -2933,8 +2934,7 @@ begin
FAggregateValues.Delete(FAggregateValues.Count-1);
end;
FAggregateValues.Free;
FExpressionNode.Free;
FResetValueExpressionNode.Free;
ReleaseExpressionNodes;
inherited Destroy;
end;
@ -2948,6 +2948,12 @@ begin
FValue:=FSavedValue;
end;
procedure TFPReportVariable.ReleaseExpressionNodes;
begin
FreeAndNil(FExpressionNode);
FreeAndNil(FResetValueExpressionNode);
end;
function TFPReportVariable.GetValue: String;
begin
Case DataType of
@ -4256,7 +4262,7 @@ var
i: integer;
begin
for i := 0 to Length(ExpressionNodes)-1 do
ExpressionNodes[i].ExprNode.Free;
FreeAndNil(ExpressionNodes[i].ExprNode);
SetLength(ExpressionNodes, 0);
end;
@ -4393,7 +4399,7 @@ end;
function TFPReportCustomMemo.GetExpr: TFPExpressionParser;
begin
Result := TFPReportCustomBand(Parent).Page.Report.FExpr;
Result:=Report.FExpr;
end;
function TFPReportCustomMemo.CreateTextBlock(const IsURL: boolean): TFPTextBlock;
@ -7643,6 +7649,7 @@ begin
For I:=0 to FVariables.Count-1 do
begin
v:=FVariables[I];
v.ReleaseExpressionNodes;
if v.Expression<>'' then
begin
FExpr.Expression:=v.Expression;