ThtmlLexicalParser

type ThtmlLexicalParser = class(TComponent)

protected

  FOptions: ThtmlLexicalParserOptions;

  FText: RawByteString;

  FFileName: string;

  FEncoding: RawByteString;

  FOnToken: TLexicalParseTokenEvent;

  FOnTokenStr: TLexicalParseTokenStrEvent;

  FOnText: TLexicalParserTextEvent;

  FOnContentText: TLexicalParserTextEvent;

  FOnStartTag: TLexicalParserTagEvent;

  FOnStartTagStr: TLexicalParserTagStrEvent;

  FOnEndTag: TLexicalParserTagEvent;

  FOnEndTagStr: TLexicalParserTagStrEvent;

  FOnTagAttr: TLexicalParserTagAttrEvent;

  FOnTagAttrStr: TLexicalParserTagAttrStrEvent;

  FOnTagAttrValue: TLexicalParserTagAttrValueEvent;

  FOnComment: TLexicalParserTextEvent;

  FLexer: ThtmlLexer;

  FAborted: Boolean;

  FTokenType: ThtmlTokenType;

  FTokenStr: string;

  FHasTokenStr: Boolean;

  FTagID: ThtmlTagID;

  FAttrID: ThtmlAttrID;

  FInAttributeValue: Boolean;

  FGetAttributeValue: Boolean;

  FAttributeValue: string;

  procedure SetOptions();

  function GetTokenCount;

  function GetTokenTypeDescription;

  function GetTokenTypeIDStr;

  function GetTokenStr;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Reset;

  procedure Abort;

  procedure GetNextToken;

  procedure Parse;

  property Aborted: Boolean; [r]

  property TokenCount: Integer; [r]

  property TokenType: ThtmlTokenType; [r]

  property TokenTypeDescription: string; [r]

  property TokenTypeIDStr: string; [r]

  property TokenStr: string; [r]

  property TagID: ThtmlTagID; [r]

  property AttrID: ThtmlAttrID; [r]

  property Options: ThtmlLexicalParserOptions; [rw]

  property Text: RawByteString; [rw]

  property FileName: string; [rw]

  property Encoding: RawByteString; [rw]

  property OnToken: TLexicalParseTokenEvent; [rw]

  property OnTokenStr: TLexicalParseTokenStrEvent; [rw]

  property OnText: TLexicalParserTextEvent; [rw]

  property OnContentTextU: TLexicalParserTextEvent; [rw]

  property OnStartTag: TLexicalParserTagEvent; [rw]

  property OnStartTagStr: TLexicalParserTagStrEvent; [rw]

  property OnEndTag: TLexicalParserTagEvent; [rw]

  property OnEndTagStr: TLexicalParserTagStrEvent; [rw]

  property OnTagAttr: TLexicalParserTagAttrEvent; [rw]

  property OnTagAttrStr: TLexicalParserTagAttrStrEvent; [rw]

  property OnTagAttrValue: TLexicalParserTagAttrValueEvent; [rw]

  property OnComment: TLexicalParserTextEvent; [rw]

end;

ThtmlLexicalParser

TObject