paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpSQLParser: fix float literal parsing (make it locale-independent)

Browse Source 
git-svn-id: trunk@49564 -
This commit is contained in:
ondrej 2021-06-26 16:05:37 +00:00
parent d4b4950ae4
commit 48f259589b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sql/fpsqlparser.pas
View File

@ -2241,6 +2241,9 @@ end;
function TSQLParser.CreateLiteral(AParent : TSQLElement) : TSQLLiteral;
var
SQLFS: TFormatSettings;
begin
Result:=Nil;
Case CurrentToken of
@ -2257,7 +2260,9 @@ begin
tsqlFloatNumber:
begin
Result:=TSQLLiteral(CreateElement(TSQLFloatLiteral,AParent));
TSQLFloatLiteral(Result).Value:=StrToFloat(CurrentTokenString);
SQLFS:=DefaultFormatSettings;
SQLFS.DecimalSeparator:='.';
TSQLFloatLiteral(Result).Value:=StrToFloat(CurrentTokenString,SQLFS);
end;
tsqlNull :
Result:=TSQLLiteral(CreateElement(TSQLNullLiteral,AParent));