|
#1
|
|||
|
|||
Буква ё
Есть код конвертации имен файлов из кирилицы в латиницу.Прекрасно работает за исключением буквы ё.Затык происходит в следующем коде:
Код:
While (Ansipos('Ё',q)<>0) or (n<length(q)+1) do begin inc(n); Insert('Ё',q,AnsiPOS('Jo',q)); Delete(q,pos('Ё',q),1); end; Пробовал вместо AnsiPos просто Pos, пробовал преобразовывать строку при помощи OemToChar-не работает, что посоветуете? Последний раз редактировалось M.A.D.M.A.N., 22.02.2015 в 20:35. |
#2
|
||||
|
||||
Код:
q:= StringReplace(q, 'Ё', 'Jo', [rfReplaceAll]); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Alegun благодарю за функцию, но не работает -ё остается без замены.
|
#4
|
||||
|
||||
В нижний регистр переведите ('ё' и 'Ё' два разных знака)
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Alegun. Я поставил две строки с этой функцией- для прописной и для заглавной.
|
#6
|
|||
|
|||
Alegun!!! Заработало.Огромное спасибо тебе.Причина я записал эту функцию два раза для ё и Ё, не к чему ее не приравняв, надеясь что она изменит строку которая ей передается как параметр.Но когда приравнял её к строковой переменной получил результат.Удачи тебе дружище.
|