“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;