delphi 编号自动加1 数据库最后编号以取到~！
编号为2011-00001 点程增加后，编号2011-00002 自动加1。VB 是这么实现的Text2.Text = Left(Text2.Text, 5) & Right("00000" & (CLng(Mid(Text2.Text, 6)) + 1), 5) delphi 怎么实现？请高手指点~ 谢谢~~

[解决办法]
delphi还有RightStr,LeftStr