ПШвИ - ПЕРВЫЙ ШАГ в ИНТЕРНЕТ

МБОУ БСОШ №1 

Ваш IP: 44.200.169.3
  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
ПУБЛИКАЦИИ / ПРОГРАММИРОВАНИЕ / Транслитерация кириллицы в латынь

Транслитерация кириллицы в латынь

Печать

Транслитерация кириллицы в латынь

Русский = Russkiy

Транслитерация кириллицы в латынь

Преобразование строки вида 'Транслитерация' в 'Transliteratsiya' по правилам ГОСТа
function TranslitRus2Lat(const Str: string): string;

 

{ *** Транслитерация кириллицы в латынь *** 
Преобразование строки вида 'Транслитерация' в 'Transliteratsiya' по правилам ГОСТа Зависимости: System ***************************************************** }
function TranslitRus2Lat(const Str: string): string; const RArrayL = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя'; RArrayU = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ'; colChar = 33; arr: array[1..2, 1..ColChar] of string = (('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'kh', 'ts', 'ch', 'sh', 'shch', '''', 'y', '''', 'e', 'yu', 'ya'), ('A', 'B', 'V', 'G', 'D', 'E', 'Yo', 'Zh', 'Z', 'I', 'Y', 'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F', 'Kh', 'Ts', 'Ch', 'Sh', 'Shch', '''', 'Y', '''', 'E', 'Yu', 'Ya')); var i: Integer; LenS: Integer; p: integer; d: byte; begin result := ''; LenS := length(str); for i := 1 to lenS do begin d := 1; p := pos(str[i], RArrayL); if p = 0 then begin p := pos(str[i], RArrayU); d := 2 end; if p <> 0 then result := result + arr[d, p] else result := result + str[i]; //если не русская буква, то берем исходную end; end;
 

Добавить комментарий


Защитный код
Обновить


Top.Mail.Ru Яндекс.Метрика
iikt  TIiIKT  ikt24.org.ru  gerb gerb