anchor.diff:    public
       function AsInt64: Int64;
     end;
  -  {$ENDIF}
  +  {$IFEND}
   
     TRttiFieldHelper = class helper for TRttiField
     public
  
positive.code:   function Sanitize(AData: String): string;
    begin
      Result := AData;
      Result := StringReplace(Result, '" :', '":', [rfReplaceAll]);
      Result := StringReplace(Result, '": ', '":', [rfReplaceAll]);
    end;
  
  var
  
negative.code:   Result := StrToInt64(ToString);
  end;
  
  {$IFEND}
  
  end.
  