Changeset 483 for Common


Ignore:
Timestamp:
Jul 25, 2016, 5:38:44 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Used decimal point symbol depending on locale.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/UXMLUtils.pas

    r476 r483  
    9797      if Pos('Z', XMLDateTime) > 0 then
    9898        LeftCutString(XMLDateTime, Part, 'Z');
    99       SecondFraction := StrToFloat('0.' + Part);
     99      SecondFraction := StrToFloat('0' + DecimalSeparator + Part);
    100100      Millisecond := Trunc(SecondFraction * 1000);
    101101    end else begin
Note: See TracChangeset for help on using the changeset viewer.