Changeset 32


Ignore:
Timestamp:
Jul 26, 2016, 9:01:46 AM (8 years ago)
Author:
chronos
Message:
  • Fixed: Use corret system locale on Linux.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/CoolDisk.lpr

    r31 r32  
    55uses
    66  {$IFDEF UNIX}
    7   cthreads,
     7  cthreads, clocale,
    88  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
  • trunk/Packages/Common/UXMLUtils.pas

    r15 r32  
    9999      if Pos('Z', XMLDateTime) > 0 then
    100100        LeftCutString(XMLDateTime, Part, 'Z');
    101       SecondFraction := StrToFloat('0.' + Part);
     101      SecondFraction := StrToFloat('0' + DecimalSeparator + Part);
    102102      Millisecond := Trunc(SecondFraction * 1000);
    103103    end else begin
Note: See TracChangeset for help on using the changeset viewer.