Отобразить UNICODE в компонентах Delphi

← →
Tack (2004-10-27 15:13) [0]

Как отобразить текст, представленный в виде строковых ресурсов UCS2 (Unicode 2 байта) в визуальных компонентах?

Отображаемая строка в виде WideChar, загружена из строкового ресурса, созданного, например, в редакторе Shtirlitz в кодировке UCS2.

Пытался использовать WideCharLenToString() - получается абракадбра какая-то.

← →
clickmaker © (2004-10-27 15:30) [1]

> Отображаемая строка в виде WideChar, загружена из строкового
> ресурса

Как загружена?

← →
Tack (2004-10-27 15:40) [2]

var
F: Integer;
S: WideString;
begin
//
//
F := FileOpen("test.txt", fmOpenRead or fmShareDenyNone);
SetLength(S, 500);
FileRead(F, S, 499);
Label1.Caption := WideCharLenToString(@S, Length(S));
FileClose(F);

← →
clickmaker © (2004-10-27 15:43) [3]

а так

var
F: Integer;
wsz: array[0..500] of WideChar;
begin
//
//
F := FileOpen("test.txt", fmOpenRead or fmShareDenyNone);
FileRead(F, wsz, SizeOf(wsz));
Label1.Caption := WideCharLenToString(wsz, SizeOf(wsz));
FileClose(F);

← →
Tack (2004-10-27 15:47) [4]

Работает! Спасибо!
Только спереди строки вылез вопросительный знак почему-то....

Слушай, а что, у WideString-а первые байты забиты под служебную информацию, что ли?

← →
Tack (2004-10-27 15:50) [5]

И я понял, почему вылез спереди вопросительный знак. Потому что строка в файле начинается с двухбайтового кода FFFE. Это признак кодировки, да?

Отобразить UNICODE в компонентах Delphi Найти похожие ветки