16.03.2021, 10:19
|
Прохожий
|
|
Регистрация: 16.12.2020
Сообщения: 11
Версия Delphi: Delphi 7
Репутация: 10
|
|
Сам задал вопрос, сам на него ответил.
Код:
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;
Где
Код:
strok := copy(word,j div 27,1) + copy(word,j mod 26,1);
должно быть
Код:
strok := copy(word,j div 26,1) + copy(word,j mod 26,1);
И теперь всё работает.
В частности первая ступень А и вторая ступень АА. Третья ступень с ААА мне не нужна, так что считаю свой вопрос теперь не актуальным для меня.
|