Changeset 14 for trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)

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