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

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

Как создать юникодовый файл?

kaktus ©   (2004-11-29 11:36:00) 

Здрасвуйте мастера!
Стоит задача создать юникодовый файл, я делаю следующее.

var
f : file of WideChar;
begin
....
//writeln - не пашет - а как же без него?
end;

---

kaktus   (2004-11-29 12:17:00) [1]

>можно так попробовать
>fs: TFileStream;
>begin
> fs := TFilteStream.Create(....);
> fs.Write(pointer(ws)^, 2*len(ws))
>end;
>вроде так, писал здесь, могут быть ошибки.
Спасибо - файл сформировал! Ошибка была:
var
fs: TFileStream;
ws : WideChar;
tmp : String;
begin
tmp := Memo1.Text;
ws := tmp;
fs := TFilteStream.Create('C:\test.txt',fmCreate);
fs.Write(Pointer(ws)^, 2*length(ws));
fs.Destroy;
end;

---

Суслик   (2004-11-29 11:52:00) [2]

можно так попробовать

fs: TFileStream;

begin
  fs := TFilteStream.Create(....);
  fs.Write(pointer(ws)^, 2*len(ws))
end;

вроде так, писал здесь, могут быть ошибки.

---

Наверх