Explorar o código

* use monetary thousands separator if numerical thousands separator is #0
(mantis #13552, patch by Jesus Reyes)

git-svn-id: trunk@13029 -

Jonas Maebe %!s(int64=16) %!d(string=hai) anos
pai
achega
1ad1eac9e8
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      rtl/unix/clocale.pp

+ 3 - 0
rtl/unix/clocale.pp

@@ -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;