[chuxlo]

Есть код конвертации имен файлов из кирилицы в латиницу.Прекрасно работает за исключением буквы ё.Затык происходит в следующем коде:

Код:

While (Ansipos('Ё',q)<>0) or (n<length(q)+1) do begin
            inc(n);
                Insert('Ё',q,AnsiPOS('Jo',q));
            Delete(q,pos('Ё',q),1);
end;

MAD: учимся пользоваться тегами!

Пробовал вместо AnsiPos просто Pos, пробовал преобразовывать строку при помощи OemToChar-не работает, что посоветуете?

[Alegun]

Код:

q:= StringReplace(q, 'Ё', 'Jo', [rfReplaceAll]);

[chuxlo]

Alegun благодарю за функцию, но не работает -ё остается без замены.

[Alegun]

В нижний регистр переведите ('ё' и 'Ё' два разных знака)

[chuxlo]

Alegun. Я поставил две строки с этой функцией- для прописной и для заглавной.

[chuxlo]

Alegun!!! Заработало.Огромное спасибо тебе.Причина я записал эту функцию два раза для ё и Ё, не к чему ее не приравняв, надеясь что она изменит строку которая ей передается как параметр.Но когда приравнял её к строковой переменной получил результат.Удачи тебе дружище.