Escape exported PHP strings using some extra logic, instead of using incompatible TDBConnection.EscapeString. Fixes issue #3304.

This commit is contained in:
Ansgar Becker
2013-08-06 03:58:56 +00:00
parent 58b2a66800
commit 34fa56ab51

View File

@@ -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