Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
ВнизСохранить файл в 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c