сохранение текста в файл в формате Unicode

← →
Xytr@s © (2006-07-11 20:40) [0]

собсна как? использую TStringList. создаю базу XML
все книжки какие есть облазил так и не нашел как это делается =(

← →
tesseract © (2006-07-11 21:13) [1]

логично предположмть - StringToWideChar

← →
Xytr@s © (2006-07-12 17:29) [2]

рискую быть посланным в хэлп но все же можно подробней? а то у меня никак не выходит каменный цветок =(

← →
han_malign © (2006-07-12 17:39) [3]

не в Unicode, а в UTF8...

← →
Xytr@s © (2006-07-12 17:53) [4]

to han_malign
проще говоря нужен такой же эффект как при сохранении в вордпаде с фильтром "текстовый документ в юникоде"

← →
han_malign © (2006-07-12 18:09) [5]

var h: THandle;
sz: DWORD;
_s: UTF8String;//WideString;
begin
_s:= StringList.Text;
h:= CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
if(h <> INVALID_HANDLE_VALUE)then begin
WriteFile(h, Pointer(_s)^, Length(_s)*sizeof(_s[1]){для WideString}, sz);
CloseHandle(h)
end;
..............

← →
Xytr@s © (2006-07-12 18:59) [6]

to han_malign
пишет что недостаточно параметров в WriteFile

← →
Xytr@s © (2006-07-12 21:37) [7]

я не умею с указателями обращаться =( подскажите плиз! очень надо

← →
palva © (2006-07-12 23:46) [8]

Следующий пример выводит именно Unicod, а не UTF8. То есть это ответ на вопрос, сформулированный в [4].
{$APPTYPE CONSOLE} const prefix: Word = $FEFF; endl: LongWord = $000A000D; var ws: WideString; f: File; begin AssignFile(f, "temp.txt"); Rewrite(f, 1); BlockWrite(f, prefix, 2); ws := "The first string"; BlockWrite(f, ws[1], Length(ws)*2); BlockWrite(f, endl, 4); ws := "Вторая строка"; BlockWrite(f, ws[1], Length(ws)*2); BlockWrite(f, endl, 4); CloseFile(f); end.

to palva
спасибки =) все работает!

Мне одно интересно. TstringList не поддерживает юникод. Зачем тогда в нем выгружать?

to Desdechado
наверно потому что я по-другому не умею =) гыы

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