Неверов Евгений Викторович
Меню сайта
Категории раздела
Программирование на языке Паскаль [27]
В данной категории представлены новые функции, созданные на языке Паскаль, которые могут пригодиться при написании своих программ
Программирование на Delphi [18]
В данной категории представлены полезные подпрограммы, которые могут пригодиться при написании своих программ, а также рассматриваются примеры готовых проектов, создаваемых в среде программирования Delphi
Программирование на HTML [0]
В данной категории рассматриваются примеры готовых проектов, создаваемых на языке HTML
Прочее [0]
Свободная тематика
Мини-чат
200
Наш опрос
Как Вы думаете, сколько времени люди проживут на Земле?
Всего ответов: 32
Статистика

Рейтинг@Mail.ru
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Программирование на языке Паскаль [ Добавить статью ]

Конвертация раскладки клавиатуры

1. Конвертация раскладки русской клавиатуры на США


function KonwertatsiyaRaskladkiEn(rus: string): string;
begin
   rus:=SimwolZamenit(rus, ';', '$', false, false);
   rus:=SimwolZamenit(rus, '/', '|', false, false);
   rus:=SimwolZamenit(rus, '.', '/', false, false);
   rus:=SimwolZamenit(rus, '?', '&', false, false);
   rus:=SimwolZamenit(rus, ',', '?', false, false);
   rus:=SimwolZamenit(rus, '"', '@', false, false);
   rus:=SimwolZamenit(rus, ':', '^', false, false);
   rus:=SimwolZamenit(rus, 'й', 'q', false, false);
   rus:=SimwolZamenit(rus, 'ц', 'w', false, false);
   rus:=SimwolZamenit(rus, 'у', 'e', false, false);
   rus:=SimwolZamenit(rus, 'к', 'r', false, false);
   rus:=SimwolZamenit(rus, 'е', 't', false, false);
   rus:=SimwolZamenit(rus, 'н', 'y', false, false);
   rus:=SimwolZamenit(rus, 'г', 'u', false, false);
   rus:=SimwolZamenit(rus, 'ш', 'i', false, false);
   rus:=SimwolZamenit(rus, 'щ', 'o', false, false);
   rus:=SimwolZamenit(rus, 'з', 'p', false, false);
   rus:=SimwolZamenit(rus, 'х', '[', true, false);
   rus:=SimwolZamenit(rus, 'Х', '{', true, false);
   rus:=SimwolZamenit(rus, 'ъ', ']', true, false);
   rus:=SimwolZamenit(rus, 'Ъ', '}', true, false);
   rus:=SimwolZamenit(rus, 'ф', 'a', false, false);
   rus:=SimwolZamenit(rus, 'ы', 's', false, false);
   rus:=SimwolZamenit(rus, 'в', 'd', false, false);
   rus:=SimwolZamenit(rus, 'а', 'f', false, false);
   rus:=SimwolZamenit(rus, 'п', 'g', false, false);
   rus:=SimwolZamenit(rus, 'р', 'h', false, false);
   rus:=SimwolZamenit(rus, 'о', 'j', false, false);
   rus:=SimwolZamenit(rus, 'л', 'k', false, false);
   rus:=SimwolZamenit(rus, 'д', 'l', false, false);
   rus:=SimwolZamenit(rus, 'ж', ';', true, false);
   rus:=SimwolZamenit(rus, 'Ж', ':', true, false);
   rus:=SimwolZamenit(rus, 'э', '''', true, false);
   rus:=SimwolZamenit(rus, 'Э', '"', true, false);
   rus:=SimwolZamenit(rus, 'я', 'z', false, false);
   rus:=SimwolZamenit(rus, 'ч', 'x', false, false);
   rus:=SimwolZamenit(rus, 'с', 'c', false, false);
   rus:=SimwolZamenit(rus, 'м', 'v', false, false);
   rus:=SimwolZamenit(rus, 'и', 'b', false, false);
   rus:=SimwolZamenit(rus, 'т', 'n', false, false);
   rus:=SimwolZamenit(rus, 'ь', 'm', false, false);
   rus:=SimwolZamenit(rus, 'б', ',', true, false);
   rus:=SimwolZamenit(rus, 'Б', '<', true, false);
   rus:=SimwolZamenit(rus, 'ю', '.', true, false);
   rus:=SimwolZamenit(rus, 'Ю', '>', true, false);
   rus:=SimwolZamenit(rus, 'ё', '`', true, false);
   rus:=SimwolZamenit(rus, 'Ё', '~', true, false);
   rus:=SimwolZamenit(rus, '№', '#', false, false);
   Result:=rus;
end;

где

rus - исходная строка.

Например, KonwertatsiyaRaskladkiEn('Цштвщцы') выведет 'Windows'.


2. Конвертация раскладки США-клавиатуры на русскую


function KonwertatsiyaRaskladkiRu(eng: string): string;
begin
   eng:=SimwolZamenit(eng, 'q', 'й', false, false);
   eng:=SimwolZamenit(eng, 'w', 'ц', false, false);
   eng:=SimwolZamenit(eng, 'e', 'у', false, false);
   eng:=SimwolZamenit(eng, 'r', 'к', false, false);
   eng:=SimwolZamenit(eng, 't', 'е', false, false);
   eng:=SimwolZamenit(eng, 'y', 'н', false, false);
   eng:=SimwolZamenit(eng, 'u', 'г', false, false);
   eng:=SimwolZamenit(eng, 'i', 'ш', false, false);
   eng:=SimwolZamenit(eng, 'o', 'щ', false, false);
   eng:=SimwolZamenit(eng, 'p', 'з', false, false);
   eng:=SimwolZamenit(eng, '[', 'х', false, true);
   eng:=SimwolZamenit(eng, '{', 'Х', false, true);
   eng:=SimwolZamenit(eng, ']', 'ъ', false, true);
   eng:=SimwolZamenit(eng, '}', 'Ъ', false, true);
   eng:=SimwolZamenit(eng, 'a', 'ф', false, false);
   eng:=SimwolZamenit(eng, 's', 'ы', false, false);
   eng:=SimwolZamenit(eng, 'd', 'в', false, false);
   eng:=SimwolZamenit(eng, 'f', 'а', false, false);
   eng:=SimwolZamenit(eng, 'g', 'п', false, false);
   eng:=SimwolZamenit(eng, 'h', 'р', false, false);
   eng:=SimwolZamenit(eng, 'j', 'о', false, false);
   eng:=SimwolZamenit(eng, 'k', 'л', false, false);
   eng:=SimwolZamenit(eng, 'l', 'д', false, false);
   eng:=SimwolZamenit(eng, ';', 'ж', false, true);
   eng:=SimwolZamenit(eng, ':', 'Ж', false, true);
   eng:=SimwolZamenit(eng, '''', 'э', false, true);
   eng:=SimwolZamenit(eng, '"', 'Э', false, true);
   eng:=SimwolZamenit(eng, 'z', 'я', false, false);
   eng:=SimwolZamenit(eng, 'x', 'ч', false, false);
   eng:=SimwolZamenit(eng, 'c', 'с', false, false);
   eng:=SimwolZamenit(eng, 'v', 'м', false, false);
   eng:=SimwolZamenit(eng, 'b', 'и', false, false);
   eng:=SimwolZamenit(eng, 'n', 'т', false, false);
   eng:=SimwolZamenit(eng, 'm', 'ь', false, false);
   eng:=SimwolZamenit(eng, ',', 'б', false, true);
   eng:=SimwolZamenit(eng, '<', 'Б', false, true);
   eng:=SimwolZamenit(eng, '.', 'ю', false, true);
   eng:=SimwolZamenit(eng, '>', 'Ю', false, true);
   eng:=SimwolZamenit(eng, '/', '.', false, false);
   eng:=SimwolZamenit(eng, '?', ',', false, false);
   eng:=SimwolZamenit(eng, '`', 'ё', false, true);
   eng:=SimwolZamenit(eng, '~', 'Ё', false, true);
   eng:=SimwolZamenit(eng, '@', '"', false, false);
   eng:=SimwolZamenit(eng, '#', '№', false, false);
   eng:=SimwolZamenit(eng, '$', ';', false, false);
   eng:=SimwolZamenit(eng, '^', ':', false, false);
   eng:=SimwolZamenit(eng, '&', '?', false, false);
   eng:=SimwolZamenit(eng, '|', '/', false, false);
   Result:=eng;
end;

где

eng - исходная строка.

Например, KonwertatsiyaRaskladkiRu('Z ''nj [jxe!') выведет 'Я это хочу!'.

Примечание. Для полноценной работы данных функций необходимо скопировать функцию "Замена символа или фразы на новое значение":

function SimwolZamenit(s, simwol_star, simwol_now: string; Registr_star, Registr_now: boolean): string;
Категория: Программирование на языке Паскаль | Добавил: newerow1989 (12.03.2016 11:15 )
Просмотров: 110 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Все смайлы
Код *:
Поиск
Друзья сайта
  • Создать сайт
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Все проекты компании
  • Copyright MyCorp © 2018
    Автор этого сайта: Неверов Евгений Викторович

    Мои координаты
    Бесплатный конструктор сайтов - uCozЯндекс.Метрика