Changeset 18 for trunk/Packages

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.

Location:

trunk/Packages

Files:

• Common/UXMLUtils.pas (modified) (1 diff)
• TemplateGenerics/Generic/GenericMatrix.inc (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

trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

@@ -50 +50 @@
     function Implode(RowSeparator, ColSeparator: string; Converter: TToStringConverter): string;
     procedure Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
-    function IndexOf(Item: TGMatrixItem; Start: TIndex = 0): TIndex;
-    function IndexOfList(List: TGMatrix; Start: TIndex = 0): TIndex;
+    function IndexOf(Item: TGMatrixItem; Start: TIndex): TIndex;
+    function IndexOfList(List: TGMatrix; Start: TIndex): TIndex;
     procedure Insert(Index: TIndex; Item: TGMatrixItem);
     procedure InsertList(Index: TIndex; List: TGMatrix);