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

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

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

上一篇:C# 环球世界注册账号系列-IO篇 环球世界代码的使用


下一篇:WPF 解决多个TreeViewItem同时触发某事件的简单方法