From 5ce0a6ca182809fee8c343f5662ecc7c9dae022e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 4 Apr 2022 09:13:40 +0000
Subject: [PATCH] fpspreadsheet: Fix TsUnaryExpressionNode not implementing the
 IterateNodes method
 (https://forum.lazarus.freepascal.org/index.php/topic,58969).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8242 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/common/fpsexprparser.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/fpspreadsheet/source/common/fpsexprparser.pas b/components/fpspreadsheet/source/common/fpsexprparser.pas
index 8a033784f..3ee0306f6 100644
--- a/components/fpspreadsheet/source/common/fpsexprparser.pas
+++ b/components/fpspreadsheet/source/common/fpsexprparser.pas
@@ -295,6 +295,8 @@ type
     constructor Create(AParser: TsExpressionParser; AOperand: TsExprNode);
     procedure Check; override;
     destructor Destroy; override;
+    procedure IterateNodes(AProc: TsExprNodeProc; AData1, AData2: Pointer;
+      var MustRebuildFormulas: boolean); override;
     property Operand: TsExprNode read FOperand;
   end;
 
@@ -2948,6 +2950,12 @@ begin
     RaiseParserError(rsNoOperand, [Self.ClassName]);
 end;
 
+procedure TsUnaryOperationExprNode.IterateNodes(AProc: TsExprNodeProc;
+  AData1, AData2: Pointer; var MustRebuildFormulas: Boolean);
+begin
+  FOperand.IterateNodes(AProc, AData1, AData2, MustRebuildFormulas);
+end;
+
 
 { TsBinaryOperationExprNode }