#pas
..........
..........
var
cStr,css:string;
i,t:integer;
begin
cStr := AnsiLowerCase(ReadString(_Data,_data_Str));
css:=';
For i:=1 to Length(cStr) do // Берем по одной букве, начиная с первой
begin
t:= PosEx(cStr[i], Russian,1); // ищем в алфавите
// и если нет,то добавляем исходную, а если есть, то добавляем найденную
if t=0 then css:=css+cStr[i] else css:=css+Translit[t];
end;
_hi_CreateEvent(_Data,@_event_onWork,css);
end;
Ответов: 16884
Рейтинг: 1239
|
|||
alexium2007, оказывается есть функция PosEx, поэтому в блоке Русский в Транслит можешь заменить
|
|||
карма: 25 |
| ||
Голосовали: | alexium2007 |