[chuxlo]

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

Код:

1 2 3 4 5

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