Changeset 14 for trunk/Packages


Ignore:
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.
Location:
trunk/Packages
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

    r12 r14  
    149149  TimeParts: TListString;
    150150begin
     151  if Value = '' then Result := 0 else
    151152  try
    152153    Parts := TListString.Create;
     
    156157    Parts.Explode(Value, ' ', StrToStr);
    157158    DateParts.Explode(Parts[0], '-', StrToStr);
     159    if (StrToInt(DateParts[0]) = 0) or (StrToInt(DateParts[1]) = 0) or
     160    (StrToInt(DateParts[2]) = 0) then Result := 0 else
    158161    Result := EncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
    159162      StrToInt(DateParts[2]));
  • trunk/Packages/TemplateGenerics/Generic/GenericDictionary.inc

    r10 r14  
    9191    Result := Result + 1;
    9292  end;
     93  if Result >= Count then Result := -1;
    9394end;
    9495
  • trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

    r10 r14  
    5050    function Implode(RowSeparator, ColSeparator: string; Converter: TToStringConverter): string;
    5151    procedure Explode(Text, Separator: string; Converter: TFromStringConverter; SlicesCount: Integer = -1);
    52     function IndexOf(Item: TGMatrixItem; Start: TIndex = 0): TIndex;
    53     function IndexOfList(List: TGMatrix; Start: TIndex = 0): TIndex;
     52    function IndexOf(Item: TGMatrixItem; Start: TIndex): TIndex;
     53    function IndexOfList(List: TGMatrix; Start: TIndex): TIndex;
    5454    procedure Insert(Index: TIndex; Item: TGMatrixItem);
    5555    procedure InsertList(Index: TIndex; List: TGMatrix);
Note: See TracChangeset for help on using the changeset viewer.