Есть код конвертации имен файлов из кирилицы в латиницу.Прекрасно работает за исключением буквы ё.Затык происходит в следующем коде:
Код:
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-не работает, что посоветуете?