TResExprEvaluator

type TResExprEvaluator = class

protected

  procedure LogMsg(); overload;

  procedure RaiseMsg();

  procedure RaiseNotYetImplemented(); virtual;

  procedure RaiseInternalError();

  procedure RaiseConstantExprExp();

  procedure RaiseRangeCheck();

  procedure RaiseOverflowArithmetic();

  procedure RaiseDivByZero();

  function EvalUnaryExpr();

  function EvalBinaryExpr();

  function EvalBinaryRangeExpr();

  function EvalBinaryAddExpr();

  function EvalBinarySubExpr();

  function EvalBinaryMulExpr();

  function EvalBinaryDivideExpr();

  function EvalBinaryDivExpr();

  function EvalBinaryModExpr();

  function EvalBinaryPowerExpr();

  function EvalBinaryShiftExpr();

  function EvalBinaryBoolOpExpr();

  function EvalBinaryNEqualExpr();

  function EvalBinaryLessGreaterExpr();

  function EvalBinaryInExpr();

  function EvalBinarySymmetricaldifferenceExpr();

  function EvalParamsExpr();

  function EvalArrayParamsExpr();

  function EvalSetParamsExpr();

  function EvalSetExpr();

  function EvalArrayValuesExpr();

  function EvalPrimitiveExprString(); virtual;

  procedure PredBool();

  procedure SuccBool();

  procedure PredInt();

  procedure SuccInt();

  procedure PredUInt();

  procedure SuccUInt();

  procedure PredUnicodeString();

  procedure SuccUnicodeString();

  procedure PredEnum();

  procedure SuccEnum();

  function DivideByZero();

  function CreateResEvalInt(); virtual;

public

  constructor Create;

  function Eval();

  function IsInRange();

  function IsSetCompatible();

  function IsConst();

  function IsSimpleExpr();

  procedure EmitRangeCheckConst();

  function ChrValue(); virtual;

  function OrdValue(); virtual;

  function StringToOrd(); virtual;

  procedure PredValue(); virtual;

  procedure SuccValue(); virtual;

  function EvalStrFunc(); virtual;

  function EvalStringAddExpr(); virtual;

  function ShiftAndMaskValue(); virtual;

  function EnumTypeCast(); virtual;

  property OnLog: TPasResEvalLogHandler; [rw]

  property OnEvalIdentifier: TPasResEvalIdentHandler; [rw]

  property OnEvalParams: TPasResEvalParamsHandler; [rw]

  property OnRangeCheckEl: TPasResEvalRangeCheckElHandler; [rw]

  property AllowedInts: TResEvalTypedInts; [rw]

end;

TResExprEvaluator

TObject