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

made in programmersforum 5

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

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

25th
Авг

Перевод английских символов в русские

Posted by micher under Delphi

Как сделать так, что если клавиатура переключен на «Английский язык», то в Edit1 или Memo1 все равно писал на «Русском языке»?

xxbesoxx

1. Объявляю процедур разделе паблик:

public

   procedure EncodeCharRU(var Key: Char) ; //

2. В теле процедуры вот это:

procedure TForm1.EncodeCharRU(var Key: Char);

Const

   Lat = '~@#$^&QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`qwertyuiop[]asdfghjkl;''\zxcvbnm,./';

   Cyr = 'Ё"№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ёйцукенгшщзхъфывапролджэ\ячсмитьбю.';

var

  i: Integer;

begin

   for i := 1 to Length(Lat)

   do if Key=Lat then Key := Cyr;
end;
end.