помогите написать програмку.

[mutabor]

как ни делай а ошибки возможны, например слово
ВОСХОД > VOSHOD > ВОШОД

можешь как альтернативу сделать как смс-ки все пишут
ч - 4
ш - w
и т.д. , чтобы один к одному было

[Kashp]

Сообщение от mutabor

как ни делай а ошибки возможны, например слово
ВОСХОД > VOSHOD > ВОШОД

можешь как альтернативу сделать как смс-ки все пишут
ч - 4
ш - w
и т.д. , чтобы один к одному было

Да, именно так я и хочу сделать.

[Kashp]

Сообщение от mutabor

как ни делай а ошибки возможны, например слово
ВОСХОД > VOSHOD > ВОШОД

можешь как альтернативу сделать как смс-ки все пишут
ч - 4
ш - w
и т.д. , чтобы один к одному было

Да, именно так я теперь хочу сделать.

[Alter]

Есть два файла транслитерации: ru-en и en-ru.
1)
В первом такой текст(для верхнего и нижнего регистра символов):

А=A
а=a
Б=B
б=b
В=V
в=v
Г=G
г=g
.... и т.д

Во втором файле картина такая же, только наоборот поставлены пары символов( так как вам и нужно ).

2)
Грузим нужный список из файлов, а затем пользуем эту функцию:
Можете использовать дополнительные проверки результатов функции.

 Function GetTranslit(Lst :TStrings; ReChr :String):String;
   Var S :String;
 Begin
   Result:='';
  IF ReChr='' Then Exit;
  S := '';
  S := Lst.Values[ ReChr ]; // Получаем значение после равно
   IF Length( S )>0 Then
      Result := S ELSE
      Result := '';
 End;

[Kashp]

Интересная идея, спасибо!