Создание текстового файла в ASCII

← →
VadimSpb (2007-02-18 12:13) [0]

Добрый день!
Создаю текстовый файл.
AssignFile(Vf,"Test.txt"); Rewrite(Vf); CloseFile(Vf);
По умолчанию он имеет ANSI кодировку. Как сделать ASCII кодировку?

← →
Leonid Troyanovsky © (2007-02-18 12:37) [1]

> VadimSpb (18.02.07 12:13)

> По умолчанию он имеет ANSI кодировку. Как сделать ASCII
> кодировку?

Созданный файл кодировки не имеет.
То, что в него попадает зависит от того, в какой кодировке
в него пишет символы к.л. программа.

Изменить кодировку записываемого можно, например,
с помощью CharToOem или, возможно, MultiByteToWideChar.

--
Regards, LVT.

← →
VadimSpb (2007-02-18 13:40) [2]

Пробую, не получается.
var Vf: Textfile; s,d: PChar; begin AssignFile(Vf,"Import.txt"); Rewrite(Vf); s := "1234567"; CharToOem(s,d); Writeln(Vf,d); CloseFile(Vf); end;
Открываю файл в блокноте и получаю ANSI кодировку. Где ошибка?

← →
Johnmen © (2007-02-18 14:06) [3]

> Открываю файл в блокноте и получаю ANSI кодировку.

Это как это?

> s := "1234567";

Эта строка одинаково выглядит как в ANSI, так и в ASCII-кодировках.

← →
VadimSpb (2007-02-18 14:32) [5]

ОК, разобрался.
var Vf: Textfile; s: PChar; begin Getmem(s,255); AssignFile(Vf,"Import.txt"); Rewrite(Vf); CharToOem("абвгде",s); Writeln(Vf,s); CloseFile(Vf); Freemem(s,sizeof(s^)); end;

Создание текстового файла в ASCII Найти похожие ветки