Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Rus>Eng


Dark ©   (2008-02-07 12:32:00) 

Есть ли функция, которая переводит значение переменной типа String, если оно русское на английский? И обратная? Т.е. не переводит а просто заменяет буквы(транслитерация).


ketmar   (2008-02-07 13:12:00) [1]

>[11] homm © (2008-02-07 13:09:00)
убедил, сегодня можешь жить. %-)

---
Understanding is not required. Only obedience.


homm   (2008-02-07 13:09:00) [2]

> [10] ketmar ©   (07.02.08 12:57)
> ты пишешь такую жуть

Не надо на меня валить, мопед не мой %)


ketmar   (2008-02-07 12:57:00) [3]

>[6] homm © (2008-02-07 12:45:00)
это что за ужас, летящий на крыльях ночи? это вместо создать два массива и спокойно репласнуть одним вызовом, ты пишешь такую жуть?

---
Understanding is not required. Only obedience.


Anatoly Podgoretsky   (2008-02-07 12:51:00) [4]


> Есть ли функция, которая переводит значение переменной типа
> String, если оно русское на английский? И обратная? Т.е.
>  не переводит а просто заменяет буквы(транслитерация).

Есть где?
А обратная невозможна.

но имя файла нежелательно делать русскими буквами

Более чем странное желание.


Dark   (2008-02-07 12:48:00) [5]


> homm ©   (07.02.08 12:45) [6]

Спасибо!


Dennis I. Komarov   (2008-02-07 12:48:00) [6]

:)

function Translation (S: string): string;
var
 ...
begin
for i:=1 to Length(s) do
 case S[i] of
   'а': Result:=Result+'a';
   'б': Result:=Result+'b';
   ...
 end;
end;

Для файлов может сгодиться?


homm   (2008-02-07 12:45:00) [7]

function tr($str)
  {
     $abc = array(
             "А"=>"A",  "а"=>"a",  "Б"=>"B",  "б"=>"b",
             "В"=>"V",  "в"=>"v",  "Г"=>"G",  "г"=>"g",
             "Д"=>"D",  "д"=>"d",  "Е"=>"E",  "е"=>"e",
             "Ё"=>"E",  "ё"=>"e",  "Ж"=>"Zh", "ж"=>"zh",
             "З"=>"Z",  "з"=>"z",  "И"=>"I",  "и"=>"i",
             "Й"=>"Y",  "й"=>"y",  "К"=>"K",  "к"=>"k",
             "Л"=>"L",  "л"=>"l",  "М"=>"M",  "м"=>"m",
             "Н"=>"N",  "н"=>"n",  "О"=>"O",  "о"=>"o",
             "П"=>"P",  "п"=>"p",  "Р"=>"R",  "р"=>"r",
             "С"=>"S",  "с"=>"s",  "Т"=>"T",  "т"=>"t",
             "У"=>"U",  "у"=>"u",  "Ф"=>"F",  "ф"=>"f",
             "Х"=>"H",  "х"=>"h",  "Ц"=>"Ts", "ц"=>"ts",
             "Ч"=>"Ch", "ч"=>"ch", "Ш"=>"Sh", "ш"=>"sh",
             "Щ"=>"Sch","щ"=>"sch","Ы"=>"Y",  "ы"=>"y",
             "Ь"=>"",   "ь"=>"",   "Э"=>"E",  "э"=>"e",
             "Ъ"=>"",   "ъ"=>"",   "Ю"=>"Yu", "ю"=>"yu",
             "Я"=>"Ya", "я"=>"ya"
             );

      foreach ($abc as $r=>$l) { $str = str_replace($r, $l, $str); }
      return $str;
  }


ketmar   (2008-02-07 12:41:00) [8]

>[3] Dark © (2008-02-07 12:34:00)
а ты вопрос задавай верно. тебе ответили точно на то, о чём ты спрашивал.

---
Understanding is not required. Only obedience.


Dark   (2008-02-07 12:34:00) [9]


> где-то на планете точно есть... и не в единственном экземпляре.
> ..

Ты мне очень помог


clickmaker   (2008-02-07 12:34:00) [10]

напиши - будет
таблица перекодировки (массив), где индексом является исходный символ


Palladin   (2008-02-07 12:33:00) [11]

где-то на планете точно есть... и не в единственном экземпляре...


Dark   (2008-02-07 12:33:00) [12]

У меня пользователь выбирает из КомбоБокса значение на русском и файл сохраняется под этим именем, но имя файла нежелательно делать русскими буквами..поэтому такой вопрос


Наверх

Титульная страница Поиск, карта сайта Написать письмо