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

rtl: simplified FormatNumberCurrency

Browse Source
This commit is contained in:
mattias 2018-11-13 14:09:50 +00:00
parent dbf97bddc2
commit 67afd2d765
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl/sysutils.pas
View File

@ -1636,16 +1636,14 @@ Function FormatNumberCurrency(const Value : Currency; Digits : Integer; DS,TS :
Var Var
Negative: Boolean; Negative: Boolean;
P : Integer; P : Integer;
D : Double;
Begin Begin
D:=Value;
// Writeln('Value ',D); // Writeln('Value ',D);
If Digits = -1 Then If Digits = -1 Then
Digits := CurrencyDecimals Digits := CurrencyDecimals
Else If Digits > 18 Then Else If Digits > 18 Then
Digits := 18; Digits := 18;
Str(D:0:Digits, Result); Str(Value:0:Digits, Result);
// Writeln('1. Result ',Result,' currencystring : ',CurrencyString); // Writeln('1. Result ',Result,' currencystring : ',CurrencyString);
Negative:=Result[1] = '-'; Negative:=Result[1] = '-';
if Negative then if Negative then