Как сохранить текстовый файл в кодировке Windows [D7, WinXP]
Drag0n © (2004-09-27 12:54:00)
var F:textfile;
begin
Writeln(F,'Вiдомiсть на списання коштiв для поповнення
карткового рахунку.');
Writeln(F, DateToStr(Now)+'
МФО
334464 ОКПО 09334464');
Writeln(F,'---------------------------------------------------------------------------');
Writeln(F,'| Hомер картки | Прiзвище держателя
|
Сума |');
Writeln(F,'---------------------------------------------------------------------------');
Сохраняется в кодировке DOS
panov (2004-09-27 13:35:00) [1]
Функция OemToChar, OemToCharBuff
Наверх 
ЧАТ |
Орешник |
|
