fix: prevent SQL delimiter being set to PostgreSQL quotes

ansgarbecker · ansgarbecker · commit a3acc047e83f · 2025-12-10T16:33:43.000+01:00
diff --git a/source/main.pas b/source/main.pas
@@ -5269,7 +5269,7 @@ procedure TMainForm.SetDelimiter(Value: String);
     Msg := _('Empty value.')
   else begin
     rx := TRegExpr.Create;
-    rx.Expression := '(/\*|--|#|\''|\"|`)';
+    rx.Expression := '(/\*|--|#|\''|\"|`|\$\$)';
     if rx.Exec(Value) then
       Msg := _('Start-of-comment tokens or string literal markers are not allowed.')
   end;
