| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание текстового файла в ASCII [D2005, XP]

VadimSpb ©   (2007-02-18 12:13:00) 

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

---

VadimSpb   (2007-02-18 14:32:00) [1]

ОК, разобрался.
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;

---

Джо   (2007-02-18 14:12:00) [2]

>  s := '1234567';

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

---

Johnmen   (2007-02-18 14:06:00) [3]

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

Это как это?

---

VadimSpb   (2007-02-18 13:40:00) [4]

Пробую, не получается.
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 кодировку. Где ошибка?

---

Leonid Troyanovsky   (2007-02-18 12:37:00) [5]

> VadimSpb   (18.02.07 12:13)  

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


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

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

--
Regards, LVT.

---

Наверх