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

made in programmersforum 5

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

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

21st
Май

Преобразовать строку в другую раскладку

Posted by micher under Delphi

Есть строка ‘ghbdtn’ ее нужно преобразовать в ‘привет’ и наоборот строку ‘руддщ’ преобразовать в ‘hello’. Как реализовать?

iworm2009



{если меняет возвращает true}

function ChangeLang(var bufstr: string): boolean;

const

  rus: array [1..66] of char = ('й', 'ц', 'у', 'к', 'е', 'н', 'г', 'ш', 'щ',

                                'з', 'х', 'ъ', 'ф', 'ы', 'в', 'а', 'п', 'р',

                                'о', 'л', 'д', 'ж', 'э', 'я', 'ч', 'с', 'м',

                                'и', 'т', 'ь', 'б', 'ю', 'ё',

                                'Й', 'Ц', 'У', 'К', 'Е', 'Н', 'Г', 'Ш', 'Щ',

                                'З', 'Х', 'Ъ', 'Ф', 'Ы', 'В', 'А', 'П', 'Р',

                                'О', 'Л', 'Д', 'Ж', 'Э', 'Я', 'Ч', 'С', 'М',

                                'И', 'Т', 'Ь', 'Б', 'Ю', 'Ё');

  eng: array [1..66] of char = ('q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o',

                                'p', '[', ']', 'a', 's', 'd', 'f', 'g', 'h',

                                'j', 'k', 'l', ';', '''', 'z', 'x', 'c', 'v',

                                'b', 'n', 'm', ',', '.', '`',

                                'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O',

                                'P', '{', '}', 'A', 'S', 'D', 'F', 'G', 'H',

                                'J', 'K', 'L', ':', '"', 'Z', 'X', 'C', 'V',

                                'B', 'N', 'M', '<', '>', '~');

var

  i,

  l: integer;

  k: byte;

  isRus,

  isEng: boolean;

  tmp: Char;

begin

  isRus := false;

  isEng := false;

  result := false;

  l := length(bufstr);

  if not l > 0 then

    exit;

  for k := Low(rus) to High(rus) do

    if pos(rus[k], bufstr) <> 0 then

      isRus := true;

  for k := Low(eng) to High(eng) do

    if pos(eng[k], bufstr) <> 0 then

      isEng := true;

  if isRus and isEng then //в строке русский и английский

    exit

  else if isRus and not isEng then  //строка на русском

    for i := 1 to l do

    begin

      k := pos(bufstr, rus);

      if k > 0 then

        bufstr := eng[k];

    end

  else if not isRus and isEng then  //строка на англ

    for i := 1 to l do

    begin

      k := pos(bufstr, eng);

      if k > 0 then

        bufstr := rus[k];

    end;

  result := true;

end;