Как сохранить(загрузить) текст в кодировке DOS (CP866)? DELPHI

Столкнулся недавно с необходимостью сохранить текст в DOS кодировке (CP866). В delphi7 для сохранения функцией Writeln использовалось преобразование вида: CharToOem(PChar(S), PChar(Buf)); В delphiXE2 функция перестала сохранять файл в новом виде. Решение оказалось простым, в функции AssignFile можно указать кодовую страницу. Таким образом, для сохранения строки в текстовый файл с кодовой страницей 866 (DOS) можно воспользоваться следующей функцией: […]