Текущий архив: 2007.03.11;
Скачать: CL | DM;
Вниз
Создание текстового файла в 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 кодировку.
Это как это?
← →
Джо © (2007-02-18 14:12) [4]> 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;
Страницы: 1 вся ветка
Текущий архив: 2007.03.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
