paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: PascalParser, Fix parsing float on localized PC.

Browse Source
This commit is contained in:
Martin 2021-12-11 00:49:40 +01:00
parent 159f5e368f
commit a4b23e0b2a
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/fpdebug/fppascalparser.pas
View File

@ -1688,8 +1688,15 @@ function TFpPascalExpressionPartConstantNumber.DoGetResultValue: TFpValue;
var
i: QWord;
e: word;
ds, ts: Char;
begin
ds := DecimalSeparator;
ts := ThousandSeparator;
DecimalSeparator := '.';
ThousandSeparator := #0;
Val(GetText, i, e);
DecimalSeparator := ds;
ThousandSeparator := ts;
if e <> 0 then begin
Result := nil;
SetError(fpErrInvalidNumber, [GetText]);
@ -1709,9 +1716,19 @@ function TFpPascalExpressionPartConstantNumberFloat.DoGetResultValue: TFpValue;
var
f: Extended;
s: String;
ds, ts: Char;
ok: Boolean;
begin
s := GetText;
if not TextToFloat(PChar(s), f) then begin
ds := DecimalSeparator;
ts := ThousandSeparator;
DecimalSeparator := '.';
ThousandSeparator := #0;
ok := TextToFloat(PChar(s), f);
DecimalSeparator := ds;
ThousandSeparator := ts;
if not ok then begin
Result := nil;
SetError(fpErrInvalidNumber, [GetText]);
exit;