При обработке события OnKeyPress нет реакции на русские символы. Кто-нибудь сталкивался?
Использую следующий код:

Компилятор ведь ругается. Цифры фильтруешь? Так измени код на противоположный, с учетом warning'а

former, у меня реагирует и на кириллицу (не печатает) - (D2007).

Keeper89, потому что там Char = AnsiChar. В 2009 получаем:

Rrader, пардон, не увидел в теме сообщение версию Delphi. Тогда, действительно, нужно изменить код.

Компилятор не ругается.

D2009, поэтому проблема с юникодом.

Rrader, попробовал следующий код, но результата нет

Хм, AnsiChar(Key) некорректно обрабатывает кириллицу. И по CPU понятно, почему так, и знаю обходные пути, но не знаю, это баг Delphi или нет? Не смог ничего нагуглить. 

Нет, это не баг, учите матчасть ;)
По-определению множества в Паскале - в нём не может быть больше 256 элементов. Вопрос: ну и как же вы уложите в множество 65536 элементов (WideChar)? А никак. Отсюда следует, что такой вещи как set of WideChar не существует в природе. Откуда снова следует, что в "Key in ['А'..'Я']" равно как и "CharInSet(Key, ['А'..'Я'])" участвует что угодно, кроме WideChar-ов. 
Про множества пора забывать. Использовать их можно только с латиницей, со всем остальным - другие функции (LastDelimiter, Ord, >= и т.п.). См. также.

CodeMonkey, вот цитата из твоей ссылки:


Нет, все таки проблема с кириллицей.


  

CodeMonkey, я немного не о том. Понятно, что множество не может быть из WideChar. Я о том, что преобразование AnsiChar('а') дает '0'. Т.е. если в Key идет кириллический символ, то он не может нормально преобразоваться. Вот это баг или нет?  

Просто так все работает, если преобразовать магически:

Rrader, спасибо. +

Да не за что. 

Этот код демонстрирует баг (или фичу  ). В D2009 получаем на экране символ '1', в других версиях Delphi, как и положено, 'б'. Но в CPU еще не смотрел, ясное дело, там вся суть отражена.

Так...Посмотрел в CPU, одно отличие:

Неудивительно, но как это изменить? Просто интересно.

Это сообщение отредактировал(а) Rrader - 24.5.2009, 18:16

Вот так можно:

2 Rrader:
Чёрт, к сожалению, сейчас нет возможности погонять (нет Delphi под рукой). 
Вот, кстати, похожий (а может и связанный) случай с Unicode-символами в старых Delphi.


Эй, не вздумайте это использовать - это ни разу не решение! Вопрос-наводка: как это будет работать с языком для не-unicode программ <> русского ;)

По поводу решения - я бы в первую очередь прошерстил бы Character.pas - там должна быть куча функций диагностики, я бы поискал что-то вроде IsCharInCategory(Char, Cyrillic) - как я уже сказал, сейчас не могу посмотреть сам.
Далее, если бы это не сработало, я проверил бы по таблице символов, какие коды имеет кирилица в Unicode и обнаружил бы, что они также лежат монолитным диапазоном, как и в Ansi (да, с отдельной "Ё"), поэтому: if (Ord(Char) >= Ord('А')) and (Ord(Char) <= Ord('Я')) then (+ по аналогии на 'а'..'я' и 'Ё', 'ё').
Далее, если с диапазонами было бы плохо (скажем, не кирилицу проверяем), то я бы выписал фильтруемые символы в строку и: if LastDelimiter('абвгдеёжзийклмн...', Char) >= 0 then.

Добавлено через 2 минуты и 46 секунд

Сказал же: забудьте про множества. Не будет это работать для не латиницы.

В моем случае исключительно русский. Но, спасибо за совет. К сожалению, сейчс тоже нат среды под рукой. Завтра вечером посмотрю.

Ясно дело, магия, но в чем тут прикол, а, CodeMonkey?  Или вы про умляуты имеете в виду всякие?

В том, что такая проверка не будет работать корректно.
Вроде как: у, Delphi 2009 - теперь и с поддержкой unicode! А реально мы проверкой "if AnsiString(Key)[1] in ['а', 'б', {etc}] then" убиваем весь хвалёный unicode на корню. 
В этом был смысл моего сообщения: пора забыть про множества и использовать другие механизмы.

Т.е. проблема в том, что мы начинаем городить кривой код-огород. Очень тонко у вас эта мысль прослеживалась.

Ну не знаю, меня почему-то часто неверно понимают 
Хотя, по-моему, я ровно это же сказал ещё в первом сообщении.

CodeMonkey, используя функции, на которые ты ссылался, 

получается, что будут блокироваться символы независимо от регистра, т.е. непосредственно сами клавиши.

Это сообщение отредактировал(а) former - 26.5.2009, 11:22

Если писать так, как вы - так конечно...     И даже не только то, что вы хотели ;)
Будьте внимательнее и вдумчивее. Кнопочка F1 ещё полезная есть.