挺简单的。百度
procedure TForm1.Button1Click(Sender: TObject);
var
num1, sum: string[2];
num2, i, j: Integer;
begin
num1 := ‘0A‘; //被加数
num2 := 27; //加数，如知果单纯自增道的话可以改成回1
i := Ord(num1[2]) - 65 + num2;
j := i div 26;
if j >= 26 then Exit;
i := i mod 26 + 65;
sum := Chr(Ord(num1[1]) + j) + Chr(i); //加法结答果
ShowMessage(sum);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
num1, sum: string[2];
num2, i, j: Integer;
begin
num1 := ‘0A‘; //被加数
num2 := 27; //加数，如知果单纯自增道的话可以改成回1
i := Ord(num1[2]) - 65 + num2;
j := i div 26;
if j >= 26 then Exit;
i := i mod 26 + 65;
sum := Chr(Ord(num1[1]) + j) + Chr(i); //加法结答果
ShowMessage(sum);
end;
追问
比如第一个是0A那么下一个就是0B
追答
我知道啊，你以为我给你瞎写的么，八级的级别也不是骗分骗来的把。可以把"num2 := 27"改成"num2 := 1"，就是自增1，我的注释写得够清楚了，你没看么？我给你写的可以随意跳N个数字，不局限于自增1。能用结贴啊...