Як записати текстовий файл у DOS кодуванні

Необхідно записати інформацію в текстовий файл у DOS кодуванні. Зараз використовую перевірену конструкціюvar MyTextFile : TextFile; //файл для друку

sss : string; begin . AssignFile(MyTextFile,sDirDoc+"Spravka.rpt"); Rewrite(MyTextFile); . sss := "інформація, що виводиться, яка змінюється"; WriteLn(MyTextFile,sss); .

CloseFile(MyTextFile); Але текст виводитися в кодуванні Win, а у клієнта на ПК тільки DOS (є ще такі, і поки що будуть) Так ось, для нього треба, щоб у файл записувалося в DOS кодування. Як це можна зробити? Написати функцію перетворення в DOS, з використанням CharToOem? Може бути більш красиве рішення?

а CharToOem чим потворний?

Може бути красивіше рішення?

Чи не вимагає програмування?

Ох вже ці естети із загостреним почуттям прекрасного.

> Може їсти красивіше рішення? CharToOem - правильне рішення)

> а у клієнта на ПК лише DOS

І твоя програма там запускається?

> І твоя програма там запускається?логічне питання;)

Красивіше рішення:

Створюємо файл в анси. Робимо shellexecute фару. + V Робимо F2 Робимо F10

Красивіше просто не вигадаєш.

> І твоя програма там запускається? Ні. Туди передається лише файл.

> CharToOem - правильне рішення)Добре. Дякую що підтвердили моє рішення.

> Посилаємо у вікно фарафар у дос не працює.

А типу делфі працює

А то раптом комусь захочеться цей файл і під winпочитати.

Що угу? На четвертий день пильне око помітило, що в сараї не вистачає четвертої стіни?

ну дос, ну голий і чого? Дос-те там, а ми-то тут з делфі фаром і shelleкзекутом на вінді.

> дос-то там, а ми тут з делфі фаром і shelleкзекутом > на вінді.упс, прошу вибачення ;)

> Але текст виводиться в кодуванні Win, а клієнт на ПК тільки > DOS (є ще такі, і поки що будуть)Соромлюся запитати, а як же твоя програма працює в ДОС, чи ти просто файл пересилаєш?

> Може їсти більш красиве рішення? Можна написати свою функцію переконвертування, рядків на 500 - красиво!

---