From 5abac681414ad91bbf94a7260139de028af62d60 Mon Sep 17 00:00:00 2001
From: DomingoGP <dgalmesp@gmail.com>
Date: Sun, 18 Aug 2024 14:06:05 +0200
Subject: [PATCH] Jedi code format: Fix bug parsing delphi inline vars like
 "var J: Integer := 22 + I;"

---
 components/jcf2/Parse/BuildParseTree.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index 45f9b6cc3c..0421ff6ad6 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -2678,6 +2678,12 @@ begin
     RecogniseType;
   end;
 
+  if (aVarType=vtInline) and (fcTokenList.FirstSolidTokenType=ttAssign) then
+  begin
+    Recognise(ttAssign);
+    RecogniseExpr(True);
+  end;
+
   lc := fcTokenList.FirstSolidToken;
   CheckNilInstance(lc, fcRoot.LastLeaf);