Advertisement
tolikpunkoff

Translit Lazarus Dictionary

Nov 25th, 2022
1,095
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.55 KB | None | 0 0
  1. Dict:=TDictTrans.Create;
  2.      Dict.Add(' ','_');
  3.      Dict.Add('А','A'); Dict.Add('а','a');
  4.      Dict.Add('Б','B'); Dict.Add('б','b');
  5.      Dict.Add('В','V'); Dict.Add('в','v');
  6.      Dict.Add('Г','G'); Dict.Add('г','g');
  7.      Dict.Add('Д','D'); Dict.Add('д','d');
  8.      Dict.Add('Е','E'); Dict.Add('е','e');
  9.      Dict.Add('Ё','YO'); Dict.Add('ё','yo');
  10.      Dict.Add('Ж','ZH'); Dict.Add('ж','zh');
  11.      Dict.Add('З','Z'); Dict.Add('з','z');
  12.      Dict.Add('И','I'); Dict.Add('и','i');
  13.      Dict.Add('Й','J'); Dict.Add('й','j');
  14.      Dict.Add('К','K'); Dict.Add('к','k');
  15.      Dict.Add('Л','L'); Dict.Add('л','l');
  16.      Dict.Add('М','M'); Dict.Add('м','m');
  17.      Dict.Add('Н','N'); Dict.Add('н','n');
  18.      Dict.Add('О','O'); Dict.Add('о','o');
  19.      Dict.Add('П','P'); Dict.Add('п','p');
  20.      Dict.Add('Р','R'); Dict.Add('р','r');
  21.      Dict.Add('С','S'); Dict.Add('с','s');
  22.      Dict.Add('Т','T'); Dict.Add('т','t');
  23.      Dict.Add('У','U'); Dict.Add('у','u');
  24.      Dict.Add('Ф','F'); Dict.Add('ф','f');
  25.      Dict.Add('Х','KH'); Dict.Add('х','kh');
  26.      Dict.Add('Ц','TS'); Dict.Add('ц','ts');
  27.      Dict.Add('Ч','CH'); Dict.Add('ч','ch');
  28.      Dict.Add('Ш','SH'); Dict.Add('ш','sh');
  29.      Dict.Add('Щ','SHCH'); Dict.Add('щ','shch');
  30.      Dict.Add('Ъ','_'); Dict.Add('ъ','_');
  31.      Dict.Add('Ы','Y'); Dict.Add('ы','y');
  32.      Dict.Add('Ь','_'); Dict.Add('ь','_');
  33.      Dict.Add('Э','JE'); Dict.Add('э','je');
  34.      Dict.Add('Ю','JU'); Dict.Add('ю','ju');
  35.      Dict.Add('Я','JA'); Dict.Add('я','ja');
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement