TLabParser

type TLabParser = class

public

  property Text: AnsiString; [r]

  property Len: TLabInt32; [r]

  property Position: TLabInt32; [rw]

  property Line: TLabInt32; [r]

  property CommentCount: TLabInt32; [r]

  property Comments []: AnsiString; [r]

  property CommnetLineCount: TLabInt32; [r]

  property CommentLines []: AnsiString; [r]

  property StringCount: TLabInt32; [r]

  property Strings []: AnsiString; [r]

  property SymbolCount: TLabInt32; [r]

  property Symbols []: AnsiString; [r]

  property KeyWordCount: TLabInt32; [r]

  property KeyWords []: AnsiString; [r]

  property Syntax: PLabParserSyntax; [rw]

  constructor Create();

  destructor Destroy; override;

  procedure Parse();

  procedure AddComment();

  procedure AddCommentLine();

  procedure AddString();

  procedure AddSymbol();

  procedure AddKeyWord();

  procedure SkipSpaces;

  procedure StatePush;

  procedure StatePop;

  procedure StateDiscard;

  procedure StateLoad;

  function Read();

  function IsAtSymbol;

  function IsAtKeyword;

  function IsAtCommentLine;

  function IsAtCommentStart;

  function IsAtCommentEnd;

  function IsAtString;

  function IsAtEOF;

  function NextToken();

end;

TLabParser

TObject