anchor.diff:    );
   {$WARN BOUNDS_ERROR DEFAULT}
   
  -  rErrorDecription = record Code: XmlError; Message: String; end;
  -  TXMLLiteKnownErrors = array of rErrorDecription;
  -
  -var
  -  XMLLiteErrorMessages: TXMLLiteKnownErrors; // may be localized by thrid-party units
  -
   type
     IXMLReader = interface
       ['{7279FC81-709D-4095-B63D-69FE4B0D9030}']
  
positive.code:     r($C00CE01F, 'XML: Invalid Unicode characters'),
      r($C00CE06E, 'XML: Invalid charset encoding')
    );
  end.
  
negative.code: procedure CheckHR(const HR: HRESULT); inline; deprecated 'Use EXmlLite.Check';
  
  type
    rErrorDecription = record Code: XmlError; Message: String; end;
    TXMLLiteKnownErrors = array of rErrorDecription;
  
    EXmlLite = class(Exception)
    private
      FErrCode: Cardinal;
    public
      property ErrorCode: Cardinal read FErrCode; // 0 - unknown
      constructor CreateForErrCode(const FunctionResult: HRESULT);
    public
      Class Var XMLLiteErrorMessages: TXMLLiteKnownErrors; // may be localized by thrid-party units
      Class Constructor InitMessages;
  
      Class Function Check(const FunctionResult: HRESULT): HResult; inline;
      Class Function IsOK(const FunctionResult: HRESULT): boolean; inline;
    end;
  
  implementation
  