paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use monetary thousands separator if numerical thousands separator is #0

Browse Source 
(mantis #13552, patch by Jesus Reyes)

git-svn-id: trunk@13029 -
This commit is contained in:
Jonas Maebe 2009-04-23 19:17:37 +00:00
parent e8edc31a89
commit 1ad1eac9e8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/unix/clocale.pp
View File

@ -306,6 +306,9 @@ begin
NegCurrFormat := NegFormatsTable[signp, prec, sep];
//Number stuff
ThousandSeparator:=GetLocaleChar(__THOUSANDS_SEP);
Sep := ord(GetLocaleChar(__MON_THOUSANDS_SEP));
if ThousandSeparator=#0 then
ThousandSeparator := char(Sep);
{$endif}
DecimalSeparator:=GetLocaleChar(RADIXCHAR);
end;