“ordinal type required”问题解决

问题重现

case Copy(spbm,1,2) of
          '98':           //无条码计件
          begin
            Deal13JJM(spbm);
          end;
          '99':          //无条码称重
          begin
             Deal13SXM(spbm);
          end;
        else          //有条码
        begin

        end;
        end;

运行、报错“ordinal type required”；

分析
case后面的表达式只能接Ordinal 类型数据，不能接string类型，可以上网查查Ordinal 类型包括哪些。

解决

case StrToInt(Copy(spbm,1,2)) of
          98:           //无条码计件
          begin
            Deal13JJM(spbm);
          end;
          99:          //无条码称重
          begin
             Deal13SXM(spbm);
          end;
        else          //有条码
        begin

        end;
        end;