Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Вниз
Юникод Найти похожие ветки
← →
mao (2003-07-08 08:58) [0]Кто-нибудь знает, как прочитать и вывести, например, в richedit несколько строк из файла сохраненного, как текст Юникод?
← →
Q (2003-07-08 09:01) [1]для определения юникод это лил нет - IsTextUnicod,
далее пользуй WideString
← →
mao (2003-07-08 09:37) [2]Я изначально знаю, что это юникод, т.е. проверять не надо.
А вот прочитать и вывести не плучается :(((
Может пример есть какой-нить?
← →
MBo (2003-07-08 09:45) [3]читай построчно в widestring, затем уже добавляй в lines
← →
Q (2003-07-08 09:49) [4]попробуй
var
ms: TFileStream;
ws: WideString;
s: string;
...
...
ms := TFileStream.Create(FileName, fmOpenRead);
try
SetLength(ws, ms.Size);
ms.ReadBuffer(Pointer(ws)^, ms.Size);
if IsTextUnicode(pointer(ws), ms.Size, nil) then begin
s := ws; { Unicode -> ANSI }
SetLength(s, Length(ws) div 2);
RichEdit.Text := s;
end; { if }
finally
ms.Free;
end;
← →
mao (2003-07-08 10:26) [5]Q (08.07.03 09:49)
Да почти заработало. Пришлось оключить условие //if...
И он почему-то впереди печатает "?".
← →
Q (2003-07-08 10:49) [6]проигнорируй 1-е 2-а байта.
The text contains the Unicode byte-order mark (BOM) 0xFEFF as its first character.
← →
mao (2003-07-08 12:39) [7]Ясно
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c