截取后边3位数

Question

以下两行代码在Delphi 2007下可以正常编译，但在Delphi 2010中编译时提示Right出错，请高手指点。  //Right截取MaxCode的 3 位转换成整型+1
  NewCode:= IntToStr(StrToInt(Right(MaxCode,3))+1);
  NewCode:= Right('000'+NewCode,3);

Answer 1

D2010中很多系统函数都移植到了UniCode

Answer 2

Right 函数改为 RightStr 即可（uses strutils）。

Answer 3

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