VPF::Вывести символ unicode - Форум программистов

Данкинг

Дата 6.6.2007, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Можно ли каким-то образом получить символ Unicode - конкретно- E (Эпсилон, которым обозначается сумма) ? Затем надо вставить этот символ в документ WORD. Некий аналог функции chrw, которая есть в Visual Basic??

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 6.6.2007, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Код


var
  c: WideChar; // символ юникода
begin
  c := #$2211; // присвоили переменной символ с кодом $2211 (эпсилон)
  TextOutW(Canvas.Handle, 8, 8, @c, 1);  // проверяем - вывели его на форму

Данкинг

Дата 6.6.2007, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Лоханулся я, не эпсилон это, а сигма. smile

А почему при выводе в Ворд не отображается эта сигма? Отображается только 2211, причём, даже если Arial поставить в шаблоне?..

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 6.6.2007, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Это уже вопрос в другой раздел smile

Данкинг

Дата 6.6.2007, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Ладно, подумаем... smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »