gdb commander, fix getting expression within square brackets

CHANGELOG.md

@@ -1,3 +1,9 @@
+# v3.9.8-dev
+
+## Enhancements
+
+- Project inspector: moved the list of configuration to a combo box over the file tree.
+
 # v3.9.7
 
 ## Enhancements

src/u_dlang.pas

@@ -1153,6 +1153,7 @@ var
   ri: integer;
   li: integer = -1;
   p : integer = 1;
+  s : integer = 1;
   i : integer;
   t : PLexToken;
 begin
@@ -1189,6 +1190,14 @@ begin
       li := i+1;
       break;
     end;
+    s += Byte((t^.kind = TLexTokenKind.ltkSymbol) and (t^.Data = ']'));
+    s -= Byte((t^.kind = TLexTokenKind.ltkSymbol) and (t^.Data = '['));
+    //  [a.[b].c|  ->  a.[b].c
+    if s.equals(0) then
+    begin
+      li := i+1;
+      break;
+    end;
   end;
   if not li.equals(-1) and (ri >= li) then
   begin