Смена языка

[_-Re@l-_]

Вот такая проблема..Есть ли в Delphi функция позволяющая изменить кодировку, типа буква 'й' конвертируется в 'q', 'ц' в 'w', и т.п. ?Case'ом как-то не хочется, уж больно много случаев.

[grafgrial]

копай в строну раскладки клавиатуры или парсирования нажатия клавиш (берешь код нажатой клавиши и записываешь что нужно)

[_-Re@l-_]

копай в строну раскладки клавиатуры или парсирования нажатия клавиш (берешь код нажатой клавиши и записываешь что нужно)

Я же сказал, что это не прокатит.

[grafgrial]

тогда просто смени раскладку клавиатуры

LoadKeyboardLayout('00000409', 1); //смена языка (англ)
LoadKeyboardLayout('00000419', 1);//смена языка (русский)

Или же используй функцию транслита (немного переделав)

[Аватар]

CASE и не надо, что нибудь типа двух массивов соответствия символов друг другу. Кстати, недано совсем тема здесь такая всплывала

[Serge_Bliznykov]

а чем таблица перекодировки не нравится?
Константы с набором данных + Пара строчек кода и задача решена!


Аватар, +1
на три минуты опередил...

[_-Re@l-_]

CASE и не надо, что нибудь типа двух массивов соответствия символов друг другу. Кстати, недано совсем тема здесь такая всплывала

Тоже нет.

тогда просто смени раскладку клавиатуры

Тоже не то.

Надо что-то наподобие:

x : char; 
/////

x:=RusToEng('й'); // x должно быть равно 'q'
x:=EngToRus('w'); // x = 'ц'

[grafgrial]

ну Это может то?

[_-Re@l-_]

Да нет же!
См. пост №7
Т.е. 'qwerty' = 'йцукен'.

[Аватар]

Если перекодировка один в один, то вообще очень просто: две строки одинаковой длины вида 'йцу...' и 'qwe...', в одной по Pos находим, из другой по индексу выдергиваем. Оформляем в выше указанные функции