Как создать текстовый файл с кодовой страницей 866?

← →
Zaq123 © (2006-04-20 12:45) [0]

← →
balepa © (2006-04-20 12:47) [1]

DOS"овский ?

← →
Zaq123 © (2006-04-20 12:50) [2]

Да. мне нужно преобразовать кодировку windows to dos. как это сделать?

← →
han_malign © (2006-04-20 12:51) [3]

CharToOem(PChar(str),PChar(str));
Writeln(F, str);

← →
Zaq123 © (2006-04-20 13:09) [4]

Вызывает ошибку

procedure TForm1.b5Click(Sender: TObject);
var
f:textfile;
s:string;
begin
assignfile(f,"c:\1.txt");
rewrite(f);
s:="ёпрст";
charToOem(PChar(s),PChar(s));
write(f,s)
close(а);
end;

← →
MBo © (2006-04-20 13:13) [5]

для константной строки именно в таком виде не сработает, но можешь вторую строку использовать для приемника (предварительно SetLength не забудь)

Если можно, то поподробней. было бы лучше если бы ты кусок кода привел в пример

← →
Dmitrij_K (2006-04-20 14:04) [7]

Почитай, полезно будет
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1206&mode=print

Вместо charToOem(PChar(s),PChar(s));
попробуй AnsiToOem(PChar(s),PChar(s));

Как создать текстовый файл с кодовой страницей 866? Найти похожие ветки