delphi 编号自动加1 数据库最后编号以取到~！

Question

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

Answer 1

var
  s:string;
begin
  s:='00000'+IntToStr(StrToInt(Copy(Edit1.Text,6,5))+1);
  Edit1.Text:=Copy(Edit1.Text,1,5)+Copy(s,Length(s)-4,5);
end;

Answer 2

delphi还有RightStr,LeftStr,还有copy,pos都可以用的
楼主的要求和代码之间的联系我还没有看明白。

Answer 3

Text2.Text:= LeftStr(Text2.Text, 5)+ RightStr('00000' +IntToStr(StrToInt(Copy(Edit1.Text,6,5))+1), 5)