anchor.diff:      class function VariantToString(const aValue: Variant): String;
   
       function AsString : String; override;
  -    function AsJson(const aFieldName : String; const aSkipIfNull: boolean): String; override;
  +    function AsJson(const aFieldName : String; const aSkipIfNull: boolean; const aMaxLength: integer = 0): String; override;
   
       property Value : TDateTime read GetValue write SetValue;
     end;
  
positive.code:   inherited Destroy;
  end;
  
  procedure TNullableJsonHelper.AddValue(const aFieldName: String; const aValue: TAbstractNullable; const aSkipIfNull: boolean);
  var
    tmp : String;
  begin
    tmp := aValue.AsJson(aFieldName, aSkipIfNull);
    if tmp <> '' then
      FList.Add(tmp);
  end;
  
negative.code:     constructor Create;
      destructor Destroy; override;
  
      procedure AddValue(const aFieldName: String; const aValue: TAbstractNullable; const aSkipIfNull: boolean; const aMaxLength : integer = 0);
      procedure AddJson(const aJsonString : String);
      function GetJson : String;
    end;
  