TOvcCustomCalculatorEngine

type TOvcCustomCalculatorEngine = class

protected

  FDecimals: Integer;

  FShowSeparatePercent: Boolean;

  cCalculated: Extended;

  cLastOperation: TOvcCalculatorOperation;

  cOperationCount: Integer;

  cMemory: Extended;

  cOperands: array [0..3] of Extended;

  cState: TOvcCalcStates;

public

  function AddOperand(); virtual; abstract;

  function AddOperation(); virtual; abstract;

  procedure ClearAll;

  procedure PushOperand();

  function PopOperand;

  function TopOperand;

  property Decimals: Integer; [rw]

  property LastOperation: TOvcCalculatorOperation; [rw]

  property Memory: Extended; [rw]

  property OperationCount: Integer; [rw]

  property ShowSeparatePercent: Boolean; [rw]

  property State: TOvcCalcStates; [rw]

end;

TOvcCustomCalculatorEngine

TObject