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

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

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

Отобразить UNICODE в компонентах Delphi [D7, Win95/98, Win2k, WinXP]

Tack © (2004-10-27 15:13:00)
Как отобразить текст, представленный в виде строковых ресурсов UCS2 (Unicode 2 байта) в визуальных компонентах?

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

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

Tack (2004-10-27 15:50:00) [1]
И я понял, почему вылез спереди вопросительный знак. Потому что строка в файле начинается с двухбайтового кода FFFE. Это признак кодировки, да?

Tack (2004-10-27 15:47:00) [2]
Работает! Спасибо!
Только спереди строки вылез вопросительный знак почему-то....

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

clickmaker (2004-10-27 15:43:00) [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:40:00) [4]
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:30:00) [5]

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

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

Наверх

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