TTextParser

type TTextParser = class(TObject)

protected

  function HandlePrecomiler; virtual;

  function HandleMacro();

  function IsMultiLine;

  procedure SkipSingleEoLnChars;

public

  ProcessingMacro: Boolean;

  Buf: AnsiString;

  Token: AnsiString;

  TokenType: TTokenType;

  TokenCode: Integer;

  Index: Integer;

  TokenPos: Integer;

  MacrosDelta: Integer;

  TokenTable: TTokenTable;

  OnPrecompile: TPrecompilerEvent;

  OnComment: procedure(;

  Sender: TObject;

  const Comment: AnsiString

) of object

  OnIgnoreToken: procedure(;

  Sender: TObject;

  const Ignored: AnsiString

) of object

  Line: Integer;

  Stack: TList;

  Errors: TStringList;

  MacroHandler: TCMacroHandler;

  CTypeInfo: TCTypeInfo;

  UseCommentEntities: Boolean;

  UsePrecompileEntities: Boolean;

  Comments: TList;

  constructor Create;

  destructor Destroy; override;

  procedure BeginParse();

  procedure EndParse;

  function GetBufWideStr();

  function SkipComments;

  function NextToken;

  function FindNextToken();

  function isTokenTypeName;

  procedure SetError();

end;

TTextParser

TObject