2,497
社区成员
发帖
与我相关
我的任务
分享delphi 编号自动加1 数据库最后编号以取到~！
编号为2011-00001 点程增加后，编号2011-00002 自动加1。VB 是这么实现的Text2.Text = Left(Text2.Text, 5) & Right("00000" & (CLng(Mid(Text2.Text, 6)) + 1), 5) delphi 怎么实现？请高手指点~ 谢谢~~
...全文
请发表友善的回复…
发表回复
都先生 2011-12-13
- 打赏
- 举报
delphi还有RightStr,LeftStr,还有copy,pos都可以用的
楼主的要求和代码之间的联系我还没有看明白。
楼主的要求和代码之间的联系我还没有看明白。
cohye 2011-12-13
- 打赏
- 举报
总结上面各个的信息。
cohye 2011-12-13
- 打赏
- 举报
Text2.Text:= LeftStr(Text2.Text, 5)+ RightStr('00000' +IntToStr(StrToInt(Copy(Edit1.Text,6,5))+1), 5)
bdmh 2011-12-12
- 打赏
- 举报
delphi还有RightStr,LeftStr
kaikai_kk 2011-12-12
- 打赏
- 举报
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;
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;
