在 Delphi 中,如何将获取字符串后三位数字并进行自动增加?

Question

我在做进销存系统，单号要求是“JD-201206001”，想获取到001 并在其基础上进行自动加1.请大侠帮帮嘛。

Answer 1

using StrUtils;
Rigthstr去右边3位，StrToInt转为int，加一后IntToStr转为字符串，然后和前面的拼接

Answer 2

sNo := Copy(sNo,1,Lenght(sNo）-3)+Format('%3.3d',[StrToIntDef(Copy(sNo,Lenght(sNo)-3,3),0)+1]);

Answer 3

uses StrUtils,SysUtils;
var OldOrderNo:String = 'JD-201206001';
NewOrderNo := Format('%.3d',[StrToInt(RightStr(OldOrderNo,3))+1]);

Answer 4

s1:= 'JD-201206001';
s2:=format('JD-201206%.3d',[strtoint(copy(s1,10,3))+1]);