Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Янв

Заменить символы по алфавиту

Posted by micher under Delphi

Нужно заменить каждый символ на следующий за ним по алфавиту и учесть, что после z будет a, т.е. алфавит цикличен.

Аватар

Д7. Для кириллицы так не пойдёт — символы не подряд



procedure TForm1.Button1Click(Sender: TObject);

const cAlpfaU = ['A'..'Z'];

      cAlpfaL = ['a'..'z'];

var s: string;

    i: Integer;

    c: Char;

begin

  s:=Edit1.Text;

  for i:=1 to Length(s) do

    if s in cAlpfaU then begin

      c:=Chr(Ord(s)+1);

      if c in cAlpfaU then s:=c else s:='A';

    end

    else if s in cAlpfaL then begin

      c:=Chr(Ord(s)+1);

      if c in cAlpfaL then s:=c else s:='a';

    end;

  Edit1.Text:=s;

end;