Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

сохранение текста в файл в формате Unicode [D7, XP]

Xytr@s © (2006-07-11 20:40:00)
собсна как? использую TStringList. создаю базу XML
все книжки какие есть облазил так и не нашел как это делается =(

Xytr@s (2006-07-13 22:46:00) [1]
to Desdechado
наверно потому что я по-другому не умею =) гыы

Desdechado (2006-07-13 13:03:00) [2]
Мне одно интересно. TstringList не поддерживает юникод. Зачем тогда в нем выгружать?

Xytr@s (2006-07-13 12:36:00) [3]
to palva
спасибки =) все работает!

palva (2006-07-12 23:46:00) [4]
Следующий пример выводит именно 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.

Xytr@s (2006-07-12 21:37:00) [5]
я не умею с указателями обращаться =( подскажите плиз! очень надо

Xytr@s (2006-07-12 18:59:00) [6]
to han_malign
пишет что недостаточно параметров в WriteFile

han_malign (2006-07-12 18:09:00) [7]
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 17:53:00) [8]
to han_malign
проще говоря нужен такой же эффект как при сохранении в вордпаде с фильтром "текстовый документ в юникоде"

han_malign (2006-07-12 17:39:00) [9]
не в Unicode, а в UTF8...

Xytr@s (2006-07-12 17:29:00) [10]
рискую быть посланным в хэлп но все же можно подробней? а то у меня никак не выходит каменный цветок =(

tesseract (2006-07-11 21:13:00) [11]
логично предположмть - StringToWideChar

Наверх

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