From 5b990def8f5453f7d2dab7765dcf4e457961ec7a Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 18 Jun 2015 18:21:50 +0000
Subject: [PATCH] Prepend 'E' to escaped PostgreSQL strings. See
 http://www.heidisql.com/forum.php?t=18657

---
 source/dbconnection.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index ca272fbc..6e164402 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2889,7 +2889,7 @@ end;
 procedure TDBConnection.DetectUSEQuery(SQL: String);
 var
   rx: TRegExpr;
-  Quotes: String;
+  Quotes, EscapeFunction: String;
 begin
   // Detect query for switching current working database or schema
   rx := TRegExpr.Create;
@@ -2897,7 +2897,11 @@ begin
   rx.Expression := '^'+GetSQLSpecifity(spUSEQuery);
   Quotes := QuoteRegExprMetaChars(FQuoteChars+''';');
   rx.Expression := StringReplace(rx.Expression, ' ', '\s+', [rfReplaceAll]);
-  rx.Expression := StringReplace(rx.Expression, '%s', '['+Quotes+']?([^'+Quotes+']+)['+Quotes+']*', [rfReplaceAll]);
+  if Parameters.NetTypeGroup = ngPgSQL then
+    EscapeFunction := 'E'
+  else
+    EscapeFunction := '';
+  rx.Expression := StringReplace(rx.Expression, '%s', EscapeFunction+'['+Quotes+']?([^'+Quotes+']+)['+Quotes+']*', [rfReplaceAll]);
   if rx.Exec(SQL) then begin
     FDatabase := Trim(rx.Match[1]);
     FDatabase := DeQuoteIdent(FDatabase);
@@ -3337,6 +3341,8 @@ begin
   if DoQuote then begin
     // Add surrounding single quotes
     Result := Char(#39) + Result + Char(#39);
+    if FParameters.NetTypeGroup = ngPgSQL then
+      Result := 'E' + Result;
   end;
 end;
 
@@ -3446,6 +3452,8 @@ var
   Quote: Char;
 begin
   Result := Identifier;
+  if (FParameters.NetTypeGroup = ngPgSQL) and (Pos('E''', Result) = 1) then
+    Result := Copy(Result, 2, Length(Result));
   if (Length(Identifier)>0) and (Result[1] = FQuoteChar) and (Result[Length(Identifier)] = FQuoteChar) then
     Result := Copy(Result, 2, Length(Result)-2);
   if Glue <> #0 then