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

← →
Gentos (2007-05-14 15:57) [0]

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

← →
Плохиш © (2007-05-14 16:00) [1]

Не понял связи между сабжем и вопросом.

← →
DiamondShark © (2007-05-14 16:00) [2]

конечно есть! вот она:

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

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

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

← →
Knight © (2007-05-14 16:01) [3]

Клавиатурный тренажёр, что ли пишешь? :)

← →
clickmaker © (2007-05-14 16:03) [4]

const
aCyrChars: string = "ФИCВУАП...";

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

← →
Gentos (2007-05-14 16:14) [5]

> Knight ©

так точно :)

← →
Gentos (2007-05-14 16:14) [6]

> Плохиш ©

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

← →
Knight © (2007-05-14 16:17) [7]

> [5] Gentos (14.05.07 16:14)

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

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

← →
Gentos (2007-05-14 16:19) [8]

> clickmaker ©

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

← →
Gentos (2007-05-14 16:21) [9]

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

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

← →
clickmaker © (2007-05-14 16:28) [10]

> [8] Gentos (14.05.07 16:19)

что именно?

← →
Gentos (2007-05-14 16:35) [11]

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

> [11] Gentos (14.05.07 16:35)

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

А можно так...

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

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

> Gentos (14.05.07 15:57)

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

ToAsciiEx & VkKeyScan

--
Regards, LVT.

a--->ф , q --->й Найти похожие ветки