delphi 字母加數字如何自增？？比如0A--0Z,1A--1Z一直到9A--9Z 請賜教
阿新 • • 發佈：2020-05-06
挺簡單的。百度
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。能用結貼啊...