Простая функция транслита в delphi.
[php]
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;
[/php]
для более серьезных проектов лучше использовать iconv :))
Delphi транслит
Теги
12.04 (12) apache (11) bash (7) cacti (8) CentOS (69) Debian (44) delphi (6) DNS (6) error (12) flash (7) FreeBSD (102) install (21) ip (16) iptables (6) linux (28) mysql (22) nginx (16) nodeny (14) php (18) phpMyAdmin (6) RAID (9) regedit (6) root (9) server (32) SNMP (8) sql (11) ssh (9) supermicro (7) Ubuntu (59) usb (7) VMware (9) wget (6) Windows (24) WordPress (16) zabbix (14) команда не найдена (6) мониторинг (7) настройка (18) пароль (7) скачать (6) скрипт (6) удалить (6) установка (55) флешка (10) фтп (12)