THTMLParser

type THTMLParser = class(TObject)

public

  OnFoundTag: TOnFoundTag;

  OnFoundText: TOnFoundText;

  Raw: Pchar;

  FCurrent: PChar;

  constructor Create();

  procedure Exec;

  procedure NilOnFoundTag();

  procedure NilOnFoundText();

  function CurrentPos;

  property Done: Boolean; [rw]

  function GetVal();

  function GetTagName();

  function GetNameValPair();

  function GetValFromNameVal();

end;

THTMLParser

TObject