anchor.diff:      const AValue: TValue; const AJSONObject: TJSONObject; var AAccept: Boolean);
   
     TJSONRawString = type string;
  +
  +  TMARSJSONSerializationOptions = record
  +    SkipEmptyValues: Boolean;
  +  end;
  +
   
   {$ifndef DelphiXE6_UP}
     TJSONArrayEnumerator = class
  
positive.code:     procedure WriteDateTimeValue(const AName: string; const AValue: TDateTime;
        const AInputIsUTC: Boolean = False);
      procedure WriteUnixTimeValue(const AName: string; const AValue: TDateTime);
      procedure WriteTValue(const AName: string; const AValue: TValue);
      procedure WriteArrayValue(const AName: string; const AArray: TJSONArray); overload; inline;
      procedure WriteArrayValue<T: record>(const AName: string; const AArray: TArray<T>); overload; inline;
  
  
negative.code:     class procedure TJSONValueToTValue(const AValue: TJSONValue; const ADesiredType: TRttiType; var ATValue: TValue);
    end;
  
  
    function StringArrayToJsonArray(const AStringArray: TArray<string>): TJSONArray;
    function JsonArrayToStringArray(const AJSONArray: TJSONArray): TArray<string>;
    function IntegerArrayToJsonArray(const AIntegerArray: TArray<Integer>): TJSONArray;
    function JsonArrayToIntegerArray(const AJSONArray: TJSONArray): TArray<Integer>;
  
    var DefaultMARSJSONSerializationOptions: TMARSJSONSerializationOptions = (
      SkipEmptyValues: True
    );
  
  
  implementation
  
  