Question

delphi中如何实现数字和字母组合的字符串数字部分不断自加1，顺序不能变

字母和数字的长度位置都不固定
例如：字符串是wh001a，可以依次的递加为wh002a、wh003a。
或者字符串为0001lz，依次递加为0002lz、0003lz。
之所以举2个例子是因为初始的字符串是未知的，好比某公司的产品序号，公司的不同，可能产品序号的字符串是各种形式的，但有一点一样的就是数字部分可以递加，其他字符保持位置不变。

Answer 1

function IncNum(const NumberStr: string): string;
var
i, num: Integer;
numstr: string;
IsIn: Boolean;
begin
IsIn := True;;
numstr := NumberStr;
for i := Length(numstr) downto 1 do
begin
if numstr[i] in ['0'..'9'] then
begin
if not isin then Continue;
isin := False;
num := StrToInt(numstr[i]);
num := num + 1;
if num = 10 then
begin
num := 0;
IsIn := True;
end;
numstr[i] := inttostr(num)[1];
end;
end;
Result := numstr;
end;
// 调用方式
showmessage(IncNum('wh002a')); // 显示 wh003a
showmessage(IncNum('wh009a')); // 显示 wh010a
showmessage(IncNum('wh999a')); // 显示 wh000a

Answer 2

能否给个例子?

Answer 3

以wh001a为例
a,b,c:integer;
a:=0;
b:=0;
c:=1;
加个timer控件
if a=10 then
begin
a:=0;
b:=b+1;
end
else
a:=a+1;
if b=10 then
begin
b:=0;
c:=c+1;
end;
if c=10 then
showmessage('超出范围');
label1.caption:=‘wh’+inttostr(c)+inttostr(b)+inttostr(a)+'a';