From 34fa56ab516795d35d4168c42dc8ec01fc83191e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 6 Aug 2013 03:58:56 +0000
Subject: [PATCH] Escape exported PHP strings using some extra logic, instead
 of using incompatible TDBConnection.EscapeString. Fixes issue #3304.

---
 source/exportgrid.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/source/exportgrid.pas b/source/exportgrid.pas
index 514fa8d9..11f1bc96 100644
--- a/source/exportgrid.pas
+++ b/source/exportgrid.pas
@@ -742,8 +742,11 @@ begin
                 Data := FormatNumber(Data);
                 Data := UnformatNumber(Data);
               end;
-              else
-                Data := esc(Data);
+              else begin
+                Data := StringReplace(Data, '\', '\\', [rfReplaceAll]);
+                Data := StringReplace(Data, '''', '\''', [rfReplaceAll]);
+                Data := '''' + Data + '''';
+              end;
             end;
 
             if chkIncludeColumnNames.Checked then