Jelajahi Sumber

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

git-svn-id: trunk@13029 -

Jonas Maebe 16 tahun lalu
induk
melakukan
1ad1eac9e8
1 mengubah file dengan 3 tambahan dan 0 penghapusan
  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;