TCustomExpressionParser

type TCustomExpressionParser = class(TObject)

protected

  FWordsList: TSortedCollection;

  function MakeRec; virtual;

  procedure FillExpressList; virtual; abstract;

  procedure HandleUnknownVariable(); virtual; abstract;

  procedure CompileExpression();

  procedure EvaluateCurrent;

  procedure DisposeList();

  procedure DisposeTree();

  function CurrentExpression; virtual; abstract;

  function GetResultType; virtual;

  property CurrentRec: PExpressionRec; [rw]

  property LastRec: PExpressionRec; [rw]

  property ExpResult: PChar; [r]

  property ExpResultPos: PChar; [rw]

public

  constructor Create;

  destructor Destroy; override;

  function DefineFloatVariable();

  function DefineIntegerVariable();

  function DefineDateTimeVariable();

  function DefineBooleanVariable();

  function DefineStringVariable();

  function DefineFunction();

  procedure Evaluate();

  function AddExpression();

  procedure ClearExpressions; virtual;

  procedure GetFunctionNames();

  function GetFunctionDescription();

  property HexChar: Char; [rw]

  property ArgSeparator: Char; [rw]

  property Optimize: Boolean; [rw]

  property ResultType: TExpressionType; [r]

end;

TCustomExpressionParser

TObject