pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix TsUnaryExpressionNode not implementing the IterateNodes method (https://forum.lazarus.freepascal.org/index.php/topic,58969).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8242 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-04 09:13:40 +00:00
parent 5b1e4aae1f
commit 5ce0a6ca18
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/source/common/fpsexprparser.pas
View File

@ -295,6 +295,8 @@ type
constructor Create(AParser: TsExpressionParser; AOperand: TsExprNode); constructor Create(AParser: TsExpressionParser; AOperand: TsExprNode);
procedure Check; override; procedure Check; override;
destructor Destroy; override; destructor Destroy; override;
procedure IterateNodes(AProc: TsExprNodeProc; AData1, AData2: Pointer;
var MustRebuildFormulas: boolean); override;
property Operand: TsExprNode read FOperand; property Operand: TsExprNode read FOperand;
end; end;
@ -2948,6 +2950,12 @@ begin
RaiseParserError(rsNoOperand, [Self.ClassName]); RaiseParserError(rsNoOperand, [Self.ClassName]);
end; end;
procedure TsUnaryOperationExprNode.IterateNodes(AProc: TsExprNodeProc;
AData1, AData2: Pointer; var MustRebuildFormulas: Boolean);
begin
FOperand.IterateNodes(AProc, AData1, AData2, MustRebuildFormulas);
end;
{ TsBinaryOperationExprNode } { TsBinaryOperationExprNode }