Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Вниз

Создание текстового файла в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.042 c