opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Various variables are int64 or float, for which we have no specific editor other than the string editor. Do not quote these to avoid "Incorrect argument type to variable.." Fixes issue #3153.

Browse Source
This commit is contained in:
Ansgar Becker
2013-06-14 04:26:13 +00:00
parent 051770c595
commit f2a89f28b8
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/editvar.pas
View File

@@ -4,7 +4,7 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
dbconnection, mysql_structures, ComCtrls, gnugettext;
dbconnection, mysql_structures, ComCtrls, gnugettext, SynRegExpr;
type
TVarType = (vtString, vtNumeric, vtBoolean, vtEnum);
@@ -171,7 +171,15 @@ begin
case FVarType of
vtNumeric: val := IntToStr(UpDownNumber.Position);
vtString: val := MainForm.ActiveConnection.EscapeString(editString.Text);
vtString: begin
// Various variables are int64 or float, for which we have no specific
// editor other than the string editor. Do not quote these to avoid
// "Incorrect argument type to variable.." See issue #3153.
if ExecRegExpr('^\d+(\.\d*)?$', FVarValue) then
val := editString.Text
else
val := MainForm.ActiveConnection.EscapeString(editString.Text);
end;
vtBoolean: val := IntToStr(Integer(radioBooleanOn.Checked));
vtEnum: val := MainForm.ActiveConnection.EscapeString(comboEnum.Text);
end;