[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-не работает, что посоветуете?