Главная страница
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.037 c
3-1100089389
Term
2004-11-10 15:23
2004.12.12
QReport как сделать в отчёте промежуточные итоги


1-1101720399
Tria
2004-11-29 12:26
2004.12.12
Taction, TMainMenu в mdi - проекте. Проблемы с Hotkey.


3-1100598126
Дмитрий_Д
2004-11-16 12:42
2004.12.12
SQL / Напомните комманду пожалуйста!


14-1101306128
OneFragLeft
2004-11-24 17:22
2004.12.12
Зашаренные ресурсы.


9-1091858675
dimodim
2004-08-07 10:04
2004.12.12
About анимация 3д моделей