unitconst.pas

来自「delphi的一个非常好的计算器程序。 绝对很好！」· PAS 代码 · 共 38 行

unit UnitConst;

interface
const
  INIT_STATUS             = 0;
  INPUT_FIRSTNUM_STATUS   = 1;//状态定义
  INPUT_SIGN_STATUS       = 2;
  INPUT_SECONDNUM_STATUS  = 3;

  INPUT_ZERO          = 0;     //numbers
  INPUT_ONE           = 1;
  INPUT_TWO           = 2;
  INPUT_THREE         = 3;
  INPUT_FOUR          = 4;
  INPUT_FIVE          = 5;
  INPUT_SIX           = 6;
  INPUT_SEVEN         = 7;
  INPUT_EIGHT         = 8;
  INPUT_NINE          = 9;

  INPUT_ADD           =10;
  INPUT_SUB           =11;
  INPUT_MUL           =12;
  INPUT_DIV           =13;


  INPUT_EQUAL         =20;

  INPUT_POINT         =30;
  INPUT_C             =40;
  
  


implementation

end.