Транслит

← →
BlackLord2003 © (2004-02-03 09:40) [0]

Мне очень нужно встроить транслит в прогу. Может кто знает как это сделать. Может есть какие компоненты для этого. Только для транслита, а не для исправления раскладки! Заранее благодарен!

← →
TUser © (2004-02-03 10:37) [1]

А что такое транслит. Правда, интересно.

← →
snake1977 (2004-02-03 10:43) [2]

Если я тебя правильно понял, то сделай так
делаеш константу типа
Const table:Array[1..66,1..2] of String[2]=
(("а","a"),......,("Я","ya"));
а далее что то типа такой вот функции

Function Rus2Trans(source:String):string;
Var i,j:Integer;
Begin
Result:="";
for i:=1 to Length(source) do
Begin
for j:=1 to 66 do
if table[j,1]=source[i] Then result:=result+table[j,2];
End;
End;

← →
Nikolay M. © (2004-02-03 10:45) [3]

Гораздо интереснее узнать, каким образом автор представляет себе "встраивание" транслита в "прогу" :)

← →
jack128 © (2004-02-03 10:50) [4]

> BlackLord2003 © (03.02.04 09:40)
тебе нужно с русского в транслит перевести? тогда
> snake1977 (03.02.04 10:43) [2] . А вот если с транслита на русский, то возможны проблемы.Каждый же транслитет как хочет ;-)

> TUser © (03.02.04 10:37) [1]
Ya pishy na traslite

← →
TUser © (2004-02-03 11:06) [5]

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

← →
REP © (2004-02-03 11:08) [6]

Где-то встречал таблицу транслита (она не соответствует международной), по ней можно было однозначно переводить из латиницы в кирилицу и обратно. Однако читается там тяжелей. буква "h" вспомогательная и в зависимости от того, какая буква стоит после нее определяется русская буква.
Только я ее потерял.

← →
Anatoly Podgoretsky © (2004-02-03 11:30) [7]

И в какую сторону транслит

> однозначно переводить из латиницы в кирилицу и обратно

Однозначно? А как быть с переводом русского "ф" и английского "th"?

Уже нашёл. Тут в кладовке есть юнит для работы со строками. Там есть то что мне нужно.

Транслит Найти похожие ветки