Changeset 14 for trunk/Packages

Timestamp:

Mar 22, 2018, 7:59:13 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for item references.
• Added: Data and Time value types.

Location:

trunk/Packages

Files:

• CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)
• TemplateGenerics/Generic/GenericDictionary.inc (modified) (1 diff)
• TemplateGenerics/Generic/GenericMatrix.inc (modified) (1 diff)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -149 +149 @@
   TimeParts: TListString;
 begin
+  if Value = '' then Result := 0 else
   try
     Parts := TListString.Create;
@@ -156 +157 @@
     Parts.Explode(Value, ' ', StrToStr);
     DateParts.Explode(Parts[0], '-', StrToStr);
+    if (StrToInt(DateParts[0]) = 0) or (StrToInt(DateParts[1]) = 0) or
+    (StrToInt(DateParts[2]) = 0) then Result := 0 else
     Result := EncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
       StrToInt(DateParts[2]));

trunk/Packages/TemplateGenerics/Generic/GenericDictionary.inc

@@ -91 +91 @@
     Result := Result + 1;
   end;
+  if Result >= Count then Result := -1;
 end;
 

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);