挺简单的。百度 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;
