Question

delphi 字母加数字如何自增？？比如0A--0Z,1A--1Z一直到9A--9Z 请赐教

Answer 1

挺简单的。
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。能用结贴啊...

Answer 2

在数据库中 拆分 加 在合并，再读出来。