截取后边3位数

LinLinLin 2010-08-06 01:38:52
以下两行代码在Delphi 2007下可以正常编译,但在Delphi 2010中编译时提示Right出错,请高手指点。

//Right截取MaxCode的 3 位转换成整型+1
NewCode:= IntToStr(StrToInt(Right(MaxCode,3))+1);
NewCode:= Right('000'+NewCode,3);
...全文
89 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
kye_jufei 2010-08-06
  • 打赏
  • 举报
回复
試試:

user strutils;
NewCode:= IntToStr(StrToInt(RightStr(MaxCode,3))+1);
NewCode:= RightStr('000'+NewCode,3);


npkaida 2010-08-06
  • 打赏
  • 举报
回复
Right 函数改为 RightStr 即可(uses strutils)。
亮剑_ 2010-08-06
  • 打赏
  • 举报
回复
D2010中很多系统函数都移植到了UniCode
麦客来了 2010-08-06
  • 打赏
  • 举报
回复
提示什么错误?

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧