opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Make query execution unicode safe, mainly for a bunch of procedures and functions in Heidi itself plus various neighbours in Zeos.

Browse Source
This commit is contained in:
Ansgar Becker
2008-06-17 17:06:01 +00:00
parent 80c5d9cdd4
commit dced2df45e
18 changed files with 139 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/helpers.pas
View File

@ -72,7 +72,7 @@ type
function FormatNumber( int: Int64 ): String; Overload;
function FormatNumber( flt: Double; decimals: Integer = 0 ): String; Overload;
procedure setLocales;
function maskSql(sql_version: integer; str: String) : String;
function maskSql(sql_version: integer; str: WideString) : WideString;
procedure ActivateWindow(Window : HWnd);
function GetApplication(MainForm: HWnd): HWnd;
procedure ActivateMainForm(MainForm: HWnd);
@ -1815,18 +1815,18 @@ end;
@return string (not) quoted identifier
@see http://www.heidisql.com/forum/viewtopic.php?t=161
}
function maskSql(sql_version: integer; str: String) : String;
function maskSql(sql_version: integer; str: WideString) : WideString;
begin
// Quote ANSI-compatible (but not MySQL-compatible)?
if sql_version = SQL_VERSION_ANSI then
begin
result := StringReplace(str, '"', '""', [rfReplaceAll]);
result := WideStringReplace(str, '"', '""', [rfReplaceAll]);
result := '"' + result + '"';
end
// Quote MySQL-compatible
else if sql_version >= 32300 then
begin
result := StringReplace(str, '`', '``', [rfReplaceAll]);
result := WideStringReplace(str, '`', '``', [rfReplaceAll]);
result := '`' + result + '`';
end
else