delphi 中使用case语句时报错ordinal type required
源代码如下:
case Code of
'9001':Format(G_ResultInfo,['-1','签名格式不正确']);
'9002':Format(G_ResultInfo,['-1','参数未赋值']);
'9003':Format(G_ResultInfo,['-1','手机号码格式不正确']);
'9006':Format(G_ResultInfo,['-1','用户accesskey不正确']);
报错原因是case后面的表达式只能接Ordinal 类型数据,不能接string类型
改成下面这样就行
case strtoint(Code) of
9001:Format(G_ResultInfo,['-1','签名格式不正确']);
9002:Format(G_ResultInfo,['-1','参数未赋值']);
9003:Format(G_ResultInfo,['-1','手机号码格式不正确']);
9006:Format(G_ResultInfo,['-1','用户accesskey不正确']);