TmscrParser

type TmscrParser = class(TObject)

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear;

  procedure InitKeywords;

  procedure ConstructCharset();

  procedure SkipSpaces;

  function GetEOL;

  function GetIdent;

  function GetChar;

  function GetWord;

  function GetNumber;

  function GetString;

  function GetFRString;

  function GetXYPosition;

  function GetPlainPosition();

  function IsKeyWord();

  property Text: string; [rw]

  property Position: Integer; [rw]

  property UseY: Boolean; [rw]

  property Keywords: TStrings; [r]

  property CaseSensitive: Boolean; [rw]

  property CommentBlock1: string; [rw]

  property CommentLine1: string; [rw]

  property CommentBlock2: string; [rw]

  property CommentLine2: string; [rw]

  property HexSequence: string; [rw]

  property IdentifierCharset: TmscrIdentifierCharset; [rw]

  property SkipEOL: Boolean; [rw]

  property SkiPChar: string; [rw]

  property SkipSpace: Boolean; [rw]

  property StringQuotes: string; [rw]

  property SpecStrChar: Boolean; [rw]

end;

TmscrParser

TObject