inc will lose current character

mosh · Dec 21, 2021 · b27ca02 · b27ca02
1 parent 1ef61ba
commit b27ca02
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Source/DB.pas b/Source/DB.pas
@@ -174,6 +174,8 @@
       var lQuoteChar := #0;
       var i := 0;
       while i < aString.Length do begin
+        var callInc := true;
+
         case aString[i] of
           '@': if lQuoteChar <> #0 then lSQ.Append(aString[i]) else begin
             inc(i);
@@ -184,6 +186,7 @@
               end else break;
             end;
             lSQ.Append(aReplacer(aString.Substring(lStart, i - lStart)));
+            callInc := false;
           end;
           '"', '`', '''': begin
             if lQuoteChar = aString[i] then lQuoteChar := #0 else
@@ -193,8 +196,12 @@
           else
             lSQ.Append(aString[i])
           end;
-        inc(i);
+        if(callInc)then
+        begin
+          inc(i);
+        end;
       end;
+
       exit lSQ.ToString;
     end;
   end;