TSqlSyntaxHighlighter

type TSqlSyntaxHighlighter = class(TSyntaxHighlighter)

protected

  procedure ProcessSingleQuoteString();

  procedure ProcessDoubleQuoteString();

  procedure ProcessSingleLineComment();

  procedure ProcessMultiLineComment();

  procedure ProcessNumber();

  function CheckForKeyword();

  function IsWordChar();

  function IsHexChar();

  class procedure CheckCategories;

  class procedure RegisterDefaultCategories; override;

  class function GetLanguages; override;

public

  constructor Create; override;

  CategorySQL: Integer;

  function Execute(); override;

  property StringEscapeMode: TSqlStringEscapeMode; [rw]

end;

TSqlSyntaxHighlighter

TSyntaxHighlighter

TObject