Changeset 32

Timestamp:

Jul 26, 2016, 9:01:46 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Use corret system locale on Linux.

Location:

trunk

Files:

• CoolDisk.lpr (modified) (1 diff)
• Packages/Common/UXMLUtils.pas (modified) (1 diff)

trunk/CoolDisk.lpr

@@ -5 +5 @@
 uses
   {$IFDEF UNIX}
-  cthreads,
+  cthreads, clocale,
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset

trunk/Packages/Common/UXMLUtils.pas

@@ -99 +99 @@
       if Pos('Z', XMLDateTime) > 0 then
         LeftCutString(XMLDateTime, Part, 'Z');
-      SecondFraction := StrToFloat('0.' + Part);
+      SecondFraction := StrToFloat('0' + DecimalSeparator + Part);
       Millisecond := Trunc(SecondFraction * 1000);
     end else begin