Скачать: CL | DM;

Сохранить файл в Unicode   Найти похожие ветки 

← →
Ярослав   (2005-06-08 13:28) [0]

Я создаю текстовый файл и записываю в него текст, как мне сделать чтобы полученный файл был в формате Unicode?

---

← →
PVOzerski ©   (2005-06-08 13:42) [1]

Ну, писать туда Unicode - что еще скажешь?
Например, так:
var
 s: string;
 ws: widestring;
 f: file;
begin
 s := "Вася, привет!"#13#10"Вася, пока!";
 ws := s;
 assignfile(f, "Vasya.txt");
 rewrite(f, 1);
 blockwrite(f, ws[1], length(ws) * sizeof(WideChar));
 closefile(f);
end;

---

← →
Ярослав   (2005-06-08 14:23) [2]

Хорошо, только не совсем правильный получается файл, если его в блокноте открыть а затем сохранить то в начале файла появятся два символа с кодами FF FE и 12 04 (яю если в hex редакторе смотреть)
У меня из-за их отсутствия программа не работает, после того как в блокноте открою и сохраню, все ОК, а как бы сделать чтобы они сразу появлялись там?

---

← →
TUser ©   (2005-06-08 14:24) [3]

Записать туда сначала эти 2 символа

---

← →
Суслик ©   (2005-06-08 14:26) [4]

>  FF FE

они показывают порядок байтов: сначала старший потом младший или наоброт.

---

← →
Ярослав   (2005-06-08 14:30) [5]

Ну а как мне их туда записать то

---

← →
Ярослав   (2005-06-08 14:51) [6]

Ну никак у меня не получается...

---

← →
PVOzerski ©   (2005-06-08 17:00) [7]

Делаешь, например, такой фокус: резервируешь в исходной AnsiString 1-й символ. Например, добавляешь в начало строки пробел (или любой другой символ - я бы только насчет #0 остерегся). После присвоения WideString"у значения используешь процедуру move для подстановки этих символов.

Вот так, например:
const
sign: array[0..1] of AnsiChar = #$FF#$FE;
var
s: string;
ws: widestring;
f: file;
begin
s := " Вася, привет!"#13#10"Вася, пока!";
ws := s;
move(sign, ws[1], 2);
assignfile(f, "Vasya.txt");
rewrite(f, 1);
blockwrite(f, ws[1], length(ws) * sizeof(WideChar));
closefile(f);
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c