Транслит в Delphi
12.04.2009 от semen
Конечно, для качественного преобразования кодировок я бы порекомендовал подключить libiconv.dll и юзать iconv, но бывают такие программы, где кроме транслитерации больше ничего не требуется. В таких случаях была бы удобна простая функция для транслита:
function Translit(s: string): string; const rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ'; lat: array[1..66] 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 p, i, l: integer; begin Result := ''; l := Length(s); for i := 1 to l do begin p := Pos(s[i], rus); if p<1 then Result := Result + s[i] else Result := Result + lat[p]; end; end;
Спонсором поста является бюро по переводу технической документации Bues.ru.
См. также:
Обрабатываем HTML
Реализация функции Explode в Delphi
Удаление http:// из урла
