Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
2-1171712728
Nija
2007-02-17 14:45
2007.03.11
Нужна срочная помощь


15-1171643866
TUser
2007-02-16 19:37
2007.03.11
Про system restore


2-1171569469
dima1233
2007-02-15 22:57
2007.03.11
Окна


11-1150407283
parovoZZ
2006-06-16 01:34
2007.03.11
Demo2Forms - не понял юмора


9-1145199906
Kaviss
2006-04-16 19:05
2007.03.11
ODE dSpaceCollide (space,nil,nearCallback); ошибка