TFPExpressionScanner

type TFPExpressionScanner = class(TObject)

  FSource: AnsiString;

  LSource: Integer;

  FPos: Integer;

  FChar: PAnsiChar;

  FToken: AnsiString;

  FTokenType: TTokenType;

protected

  procedure SetSource(); virtual;

  function DoIdentifier;

  function DoNumber();

  function DoDelimiter;

  function DoString;

  function NextPos;

  procedure SkipWhiteSpace;

  function IsWordDelim();

  function IsDelim();

  function IsDigit();

  function IsAlpha();

public

  constructor Create;

  function GetToken;

  property Token: AnsiString; [r]

  property TokenType: TTokenType; [r]

  property Source: AnsiString; [rw]

  property Pos: Integer; [r]

  property CurrentChar: AnsiChar; [r]

end;

TFPExpressionScanner

TObject