TIfPascalParser

Unit: ifs_utl.pas
TIFPascalParser is used to parse the text given to it to usefull data.

   TIfPascalParser = class
   public
     procedure Next;

     function GetToken: string;

     property CurrTokenPos: Cardinal read GetCurrTokenPos write SetCurrTokenPos;
     function CurrTokenID: TIFPasToken;

     procedure Clear;
     function SetText(const Data: string; var ErrRec: TIFParserError): Boolean;

     function SetData(const Data: string): Boolean;
     function GetData(var Data: string): Boolean;

     constructor Create;
     destructor Destroy; override;
   end;