Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как писать греческими буквами? 
:(
    Опции темы
DelvishDamned
Дата 13.5.2009, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2008

Репутация: нет
Всего: нет
Добрый день! Подскажите пожалуйста каким образом вставлять в RichEdit (Memo или еще что-то подобное) символы греческого алфавита? Из буфера обмена в программу символы вставляются. А как автоматизировать процесс? Например, при выводе рассчитанного значения чтобы строка выглядела не E=12345 а Σ=12345
PM MAIL   Вверх
Quartz
Дата 13.5.2009, 17:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 28.6.2008

Репутация: 3
Всего: 4
DelvishDamned, вариантов несколько:
1. Перейти на Delphi 2009;
2. Установить и использовать TNT Unicode Controls;
3. Если задачка разовая, то можно поработать напрямую с MS RichEdit Control'ом, например так:
Код

type
  TSetTextEx = packed record
    flags    : DWORD;  // Flags (see the ST_XXX defines)
    codepage : DWORD;  // Code page for translation (CP_ACP for sys default, 1200 for Unicode, -1 for control default)
  end;

const
  EM_SETTEXTEX = (WM_USER + 97);

procedure TForm1.FormCreate(Sender: TObject);
var
  s   : WideString;
  ste : TSetTextEx;
begin
  ste.codepage := 1200;  //Unicode
  s := WideFormat( #$03A3'=%d', [12345] ); //$03A3 - код символа Σ
  SendMessage( RichEdit1.Handle, EM_SETTEXTEX, Integer(@ste), Integer(@s[1]) );
end;
PM MAIL   Вверх
DelvishDamned
Дата 13.5.2009, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2008

Репутация: нет
Всего: нет
Цитата(Quartz @  13.5.2009,  17:02 Найти цитируемый пост)
3. Если задачка разовая, то можно поработать напрямую с MS RichEdit Control'ом, например так:


Спасибо, третий вариант подходит больше остальных. Только теперь возникает другой вопрос: как узнать коды греческих символов?  smile  и еще: возможно ли писать в нижнем и верхнем индексах таким способом?
PM MAIL   Вверх
CodeMonkey
Дата 13.5.2009, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89
Цитата
как узнать коды греческих символов?

Пуск/Программы/Стандартные/Служебные/Таблица символов


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
DelvishDamned
Дата 13.5.2009, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2008

Репутация: нет
Всего: нет
Цитата(CodeMonkey @  13.5.2009,  17:21 Найти цитируемый пост)
Пуск/Программы/Стандартные/Служебные/Таблица символов


Точно  smile  Что-то я протупил... Ну а как быть чтобы записать в нижний/верхний индекс? Например что-то вроде MRКЛ = 
PM MAIL   Вверх
DelvishDamned
Дата 13.5.2009, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2008

Репутация: нет
Всего: нет
Не, что-то не выходит  smile  Вместо сигмы пишет J
PM MAIL   Вверх
DelvishDamned
Дата 13.5.2009, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.5.2008

Репутация: нет
Всего: нет
Ладно, TNT вполне помогли. Всем спасибо за помощь!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1103 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.