- fix: parse error when double quotes not correctly closed

    - fix: parse error when single quotes not correctly closed

Author: royqh1979@gmail.com

NEWS.txt

@@ -1,3 +1,8 @@
+Version 6.7.6 
+
+    - fix: parse error when double quotes not correctly closed
+    - fix: parse error when single quotes not correctly closed
+
 Version 6.7.5 AUGUST 2021
 
     - add: blend mode for debug cpu window

Source/VCL/ClassBrowsing/CppTokenizer.pas

@@ -254,7 +254,8 @@ procedure TCppTokenizer.SkipRawString;
       ')': noEscape:=False;
     end;
   until (pCurrent^ = #0) or ( (pCurrent^ = '"') and (not noEscape));
-  Inc(pCurrent);
+  if (pCurrent^ <> #0) then
+    Inc(pCurrent);
 end;
 
 procedure TCppTokenizer.SkipDoubleQuotes;
@@ -266,7 +267,8 @@ procedure TCppTokenizer.SkipDoubleQuotes;
     else
       Inc(pCurrent);
   end;
-  Inc(pCurrent);
+  if (pCurrent^ <> #0) then
+    Inc(pCurrent);
 end;
 
 procedure TCppTokenizer.SkipSingleQuote;
@@ -276,7 +278,8 @@ procedure TCppTokenizer.SkipSingleQuote;
     if pCurrent^ = '\' then
       Inc(pCurrent, 2); // skip escaped quote
   until pCurrent^ in ['''', #0];
-  Inc(pCurrent);
+  if (pCurrent^ <> #0) then
+    Inc(pCurrent);
 end;
 
 procedure TCppTokenizer.SkipPair(cStart, cEnd: Char; FailChars: TSysCharSet); // e.g.: SkipPair('[', ']');

Source/main.dfm

@@ -1,6 +1,6 @@
 object MainForm: TMainForm
-  Left = 597
-  Top = 312
+  Left = 337
+  Top = 216
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -71,7 +71,7 @@ object MainForm: TMainForm
         Left = 0
         Top = 0
         Width = 976
-        Height = 196
+        Height = 190
         Align = alClient
         BevelOuter = bvNone
         BorderStyle = bsNone
@@ -116,7 +116,7 @@ object MainForm: TMainForm
         Left = 0
         Top = 0
         Width = 976
-        Height = 196
+        Height = 190
         Align = alClient
         BevelOuter = bvNone
         BorderStyle = bsNone
@@ -161,13 +161,13 @@ object MainForm: TMainForm
         Left = 0
         Top = 0
         Width = 192
-        Height = 196
+        Height = 190
         Align = alLeft
         BevelOuter = bvNone
         TabOrder = 0
         DesignSize = (
           192
-          196)
+          190)
         object btnAbortCompilation: TSpeedButton
           Left = 5
           Top = 5
@@ -213,14 +213,14 @@ object MainForm: TMainForm
         Left = 192
         Top = 0
         Width = 784
-        Height = 196
+        Height = 190
         Align = alClient
         BevelOuter = bvNone
         TabOrder = 1
         object LogOutput: TMemo
           Left = 0
           Top = 0
-          Width = 875
+          Width = 784
           Height = 190
           Align = alClient
           Font.Charset = DEFAULT_CHARSET
@@ -245,13 +245,13 @@ object MainForm: TMainForm
         Left = 450
         Top = 0
         Width = 8
-        Height = 196
+        Height = 190
       end
       object DebugViews: TPageControl
         Left = 458
         Top = 0
         Width = 518
-        Height = 196
+        Height = 190
         ActivePage = DebugConsoleSheet
         Align = alClient
         PopupMenu = LocalPopup
@@ -264,15 +264,15 @@ object MainForm: TMainForm
             Left = 0
             Top = 0
             Width = 510
-            Height = 165
+            Height = 159
             Align = alClient
             BevelOuter = bvNone
             TabOrder = 0
             object DebugOutput: TDevConsole
               Left = 0
               Top = 0
               Width = 510
-              Height = 165
+              Height = 159
               Align = alClient
               BevelInner = bvNone
               BevelOuter = bvNone
@@ -291,7 +291,7 @@ object MainForm: TMainForm
             Left = 0
             Top = 0
             Width = 510
-            Height = 165
+            Height = 159
             Cursor = crHandPoint
             Align = alClient
             BevelInner = bvNone
@@ -329,7 +329,7 @@ object MainForm: TMainForm
             Left = 0
             Top = 0
             Width = 510
-            Height = 165
+            Height = 159
             Cursor = crHandPoint
             Align = alClient
             BevelInner = bvNone
@@ -388,7 +388,7 @@ object MainForm: TMainForm
         Left = 0
         Top = 0
         Width = 450
-        Height = 196
+        Height = 190
         Align = alLeft
         BevelOuter = bvNone
         Constraints.MinWidth = 28
@@ -397,13 +397,13 @@ object MainForm: TMainForm
           Left = 0
           Top = 0
           Width = 450
-          Height = 196
+          Height = 190
           Align = alClient
           BevelOuter = bvNone
           TabOrder = 0
           DesignSize = (
             450
-            196)
+            190)
           object lblEvaluate: TLabel
             Left = 5
             Top = 6
@@ -438,7 +438,7 @@ object MainForm: TMainForm
             Left = 0
             Top = 68
             Width = 450
-            Height = 128
+            Height = 122
             Align = alBottom
             Anchors = [akLeft, akTop, akRight, akBottom]
             BevelOuter = bvNone
@@ -465,7 +465,7 @@ object MainForm: TMainForm
         Left = 0
         Top = 0
         Width = 976
-        Height = 196
+        Height = 190
         Align = alClient
         Indent = 22
         TabOrder = 0