anchor.diff:    
   end;
   
  +{$IFDEF HAVE_GENERICS}
  +procedure TDValue.Sort(const Compare: IComparer<TDValue>);
  +begin
  +  FChildren.Sort(Compare);
  +end;
  +{$ELSE}
   procedure TDValue.Sort(Compare: TListSortCompare);
   begin
     FChildren.Sort(Compare);
   end;
  +{$ENDIF}
  +
  +
   
   function TDValue.ToStrings(pvNameSpliter: String = '='; pvPreNameFix: string =
       STRING_EMPTY; pvValueDelimiter: string = sLineBreak): String;
  
positive.code:     procedure SetAsDateTime(const Value: TDateTime);
      function GetAsDateTime: TDateTime;
    public
      procedure Sort(Compare: TListSortCompare);
  
      /// <summary>
      ///   ӽڵгδ޸ĵӽڵ
  
negative.code: uses classes, sysutils, variants,
  {$IFDEF HAVE_GENERICS}
       System.Generics.Collections,
       System.Generics.Defaults,
  {$ENDIF}
     utils_BufferPool,
     varutils, math, utils_base64, utils_strings;
  