anchor.diff:    Result := StrToInt64(ToString);
   end;
   
  -{$ENDIF}
  +{$IFEND}
   
   end.
  
positive.code:   Result := Name;
  end;
  
  {$IFDEF DELPHI_2010}
  { TJsonObjectHelper }
  
  function TJsonObjectHelper.Get(const PairName: UnicodeString): TJSONPair;
  
negative.code:   function Sanitize(AData: String): string;
    begin
      Result := AData;
      //Result := StringReplace(Result, '" : ', '":', [rfReplaceAll]);
     // Result := StringReplace(Result, '": ', '":', [rfReplaceAll]);
    end;
  
  var
  