mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 16:09:27 +02:00
* use monetary thousands separator if numerical thousands separator is #0
(mantis #13552, patch by Jesus Reyes) git-svn-id: trunk@13029 -
This commit is contained in:
parent
e8edc31a89
commit
1ad1eac9e8
@ -306,6 +306,9 @@ begin
|
|||||||
NegCurrFormat := NegFormatsTable[signp, prec, sep];
|
NegCurrFormat := NegFormatsTable[signp, prec, sep];
|
||||||
//Number stuff
|
//Number stuff
|
||||||
ThousandSeparator:=GetLocaleChar(__THOUSANDS_SEP);
|
ThousandSeparator:=GetLocaleChar(__THOUSANDS_SEP);
|
||||||
|
Sep := ord(GetLocaleChar(__MON_THOUSANDS_SEP));
|
||||||
|
if ThousandSeparator=#0 then
|
||||||
|
ThousandSeparator := char(Sep);
|
||||||
{$endif}
|
{$endif}
|
||||||
DecimalSeparator:=GetLocaleChar(RADIXCHAR);
|
DecimalSeparator:=GetLocaleChar(RADIXCHAR);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user