Сам задал вопрос, сам на него ответил.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | procedure TForm1.btn1Click(Sender: TObject);
var
word, word1: string;
j: integer;
strok: string;
begin
word := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
j := StrToInt(Ed1.Text);
if j>26 then
begin
if (j mod 26) = 0 then
begin
strok := copy(word,j div 27,1) + copy(word,26,1);
end
else
begin
strok := copy(word,j div 27,1) + copy(word,j mod 26,1);
end;
end
else
begin
strok := copy(word,j,1);
end;
showmessage(strok);
end;
|
Где
Код:
1 | strok := copy(word,j div 27,1) + copy(word,j mod 26,1);
|
должно быть
Код:
1 | strok := copy(word,j div 26,1) + copy(word,j mod 26,1);
|
И теперь всё работает.
В частности первая ступень А и вторая ступень АА. Третья ступень с ААА мне не нужна, так что считаю свой вопрос теперь не актуальным для меня.