Юникод

← →
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]

Ясно

Юникод Найти похожие ветки