ThtmlcssParser

type ThtmlcssParser = class

protected

  FData: Pointer;

  FDataSize: Integer;

  FDataPos: Integer;

  FText: string;

  procedure Init;

  procedure SetText();

  function GetBuf();

  function SkipSpace();

  function ParseDeclaration;

  function ParseSelector();

  function ParseSelectors();

  function ParseRule();

public

  procedure InitBuf();

  procedure InitText();

  property Data: Pointer; [r]

  property DataSize: Integer; [r]

  property Text: string; [rw]

  function ParseDeclarations;

  procedure ParseRules();

end;

ThtmlcssParser

TObject