TsExpressionScanner

type TsExpressionScanner = class(TObject)

  FSource: string;

  LSource: Integer;

  FPos: Integer;

  FChar: PChar;

  FToken: string;

  FTokenType: TsTokenType;

  FSheetNameTerminator: char;

  FSavedSheetNameTerminator: char;

  FCellRange: TsCellRange;

  FFlags: TsRelFlags;

  FSheet1: string;

  FSheet2: string;

protected

  procedure SetSource(); virtual;

  function DoCellRangeODS;

  function DoError;

  function DoIdentifier;

  function DoNumber;

  function DoDelimiter;

  function DoString;

  function DoTestExcelSheetName();

  function NextPos;

  procedure SkipWhiteSpace;

  function IsWordDelim();

  function IsDelim();

  function IsDigit();

  function IsAlpha();

public

  constructor Create();

  procedure GetCellRangeParamsODS();

  function GetToken;

  property Token: string; [r]

  property TokenCellRange: TsCellRange; [r]

  property TokenFlags: TsRelFlags; [r]

  property TokenSheet1: string; [r]

  property TokenSheet2: string; [r]

  property TokenType: TsTokenType; [r]

  property Source: string; [rw]

  property Pos: Integer; [r]

  property CurrentChar: char; [r]

  property SheetnameTerminator: char; [rw]

end;

TsExpressionScanner

TObject