Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Как создать юникодовый файл?   Найти похожие ветки 

 
kaktus   (2004-11-29 11:36) [0]

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

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


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

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

fs: TFileStream;

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

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


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

>можно так попробовать
>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;



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1101818316
hgd
2004-11-30 15:38
2004.12.12
Вопрос по существу


6-1096832406
Wish
2004-10-03 23:40
2004.12.12
Передача файлов через сеть


4-1099148447
Zq
2004-10-30 19:00
2004.12.12
Как узнать и поменять уровень общей громкости звука


1-1101804989
Серж_Евдокимов
2004-11-30 11:56
2004.12.12
Программно выбрать папку в ShellTreeView..


1-1101354943
Кто---то
2004-11-25 06:55
2004.12.12
Как проще обменять шрифты двух комбобоксов ?