Changeset 18 for trunk/Packages/Common/UXMLUtils.pas

Timestamp:

Nov 6, 2017, 1:14:20 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build with newer Lazarus version.
• Fixed: Creation of application configuration file.
• Fixed: Wrong decimal point used for XML datetime decode.
• Added: Detect Subversion exe files from TortoiseSVN directory on Windows.

File:

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

trunk/Packages/Common/UXMLUtils.pas

@@ -97 +97 @@
       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