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

* Fix bug in FormatFloat: missing thousand sep when no decimal separator present. Patch by Bruno Fierens

Browse Source
This commit is contained in:
michael 2020-03-21 14:39:56 +00:00
parent fa3016bc4b
commit 9141c50a2c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/sysutils.pas
View File

@ -1633,6 +1633,8 @@ Begin
if (Result<>'') and (Result[1]=' ') then
Delete(Result,1,1);
P:=Pos('.',Result);
if (P<=0) then
P:=Length(Result)+1;
Result:=ReplaceDecimalSep(Result,DS);
Dec(P,3);
if (TS<>'') and (TS<>#0) then