TJsonSyntaxHighlighter

type TJsonSyntaxHighlighter = class(TSyntaxHighlighter)

protected

  procedure ProcessString();

  procedure ProcessNumber();

  function CheckForKeyword();

  function IsHexChar();

  function IsDigitChar();

  procedure SkipWhitespace;

  class procedure CheckCategories;

  class procedure RegisterDefaultCategories; override;

  class function GetLanguages; override;

public

  constructor Create; override;

  CategoryJSON: Integer;

  function Execute(); override;

end;

TJsonSyntaxHighlighter

TSyntaxHighlighter

TObject