Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

a--->ф , q --->й

Gentos © (2007-05-14 15:57:00)
Уважаемые мастера, есть ли функция, которая переводит из латыны в кириллицу символы ?

Leonid Troyanovsky (2007-05-14 19:57:00) [1]
> Gentos (14.05.07 15:57)

> Уважаемые мастера, есть ли функция, которая переводит из
> латыны в кириллицу символы ?

ToAsciiEx & VkKeyScan

--
Regards, LVT.

Knight (2007-05-14 17:04:00) [2]
А можно так...

строка символов в раскладке En,
строка в расскладке Ru соответствено первой строки.
кнопкам назначить теги соответственно порядковому номеру символа в строках.

берёшь символ, находишь через Pos его индекс в En или в Ru, находишь в цикле нужную кнопку по тегу=индекс, передаёшь её на нажатие... или типа того, хотя можно в начале все кнопки загнать в массив соответственно тэгов, тогда нужная кнопка будет доступна сразу по индексу из Pos...

Knight (2007-05-14 16:38:00) [3]
> [11] Gentos (14.05.07 16:35)

Что там не понятно... есть массив кирилических символов записанных в таком порядке, что порядковый номер соответствует коду соответствующего латинского...

Gentos (2007-05-14 16:35:00) [4]
const aCyrChars: string = 'ФИCВУАП...'; CyrCh := aCyrChars[Ord(LatinCh) - 65];
как это все должно работать можно пример допустим перевода символа 'q' в 'й'

clickmaker (2007-05-14 16:28:00) [5]

> [8] Gentos (14.05.07 16:19)

что именно?

Gentos (2007-05-14 16:21:00) [6]

> Knight © (14.05.07 16:17) [7]

не я стороник Stamin'ы , соло - это не мое. В целях тренинга пишу программулины и из-за того, что на работе делать нечего :)

Gentos (2007-05-14 16:19:00) [7]

> clickmaker ©

как-то непонятно

Knight (2007-05-14 16:17:00) [8]
> [5] Gentos (14.05.07 16:14)

Чем-то существующие не устраивают или так.. в целях тренинга в Delphi? :)

PS: Knight'у очень нравится Solo на клавиатуре... %)

Gentos (2007-05-14 16:14:00) [9]

> Knight ©

так точно :)

Gentos (2007-05-14 16:14:00) [10]

> Плохиш ©

другие поняли :)

clickmaker (2007-05-14 16:03:00) [11]
const
aCyrChars: string = 'ФИCВУАП...';

CyrCh := aCyrChars[Ord(LatinCh) - 65];

Knight (2007-05-14 16:01:00) [12]
Клавиатурный тренажёр, что ли пишешь? :)

Плохиш (2007-05-14 16:00:00) [13]
Не понял связи между сабжем и вопросом.

DiamondShark (2007-05-14 16:00:00) [14]
конечно есть! вот она:

const
L2C : array[char] of char = (...);

function Latin2Cyr(c: char): char;
begin
Result := L2C[c];
end;

Заполнить массив -- домашнее задание

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »