Edit ввод только русские буквы

[SeNaT]

Много примеров на эту тему,но все коды не работают.У меня delphi xe
Работает один код

if (Key<=#192)and(Key<>' ') then key:=#0

Но вот проблема,немогу ввести заглавную русскую букву "А"

[viks1]

Сообщение от SeNaT

Много примеров на эту тему,но все коды не работают.У меня delphi xe
Работает один код

if (Key<=#192)and(Key<>' ') then key:=#0

Но вот проблема,немогу ввести заглавную русскую букву "А"

пробуй

if key in (['а'..'я', 'А'..'Я']) then Edit1.Enabled:=true else
key:=#0;

[xrob]

(Key<=#192) #192 - это код буквы 'А'

т.е. вы пишете: если буква "А" или меньше нее, не писать эту букву.
равенство должно быть строгим:

if (Key<#192)and(Key<>' ') then key:=#0

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

if not (('A'<=Key)and(Key<='z') and (Key=' ')) then key:=#0 ;

[SeNaT]

Оба кода не работают.
Символы не вводятсья

[Kix.IV]

if not (Char(key) in (['а'..'я', 'А'..'Я'])) then key:=0;

Но лучше делать проверку в OnPress.

[SeNaT]

Kix.IV неработает в тех двух случаях символы вообще не вводяться,ваш метод я уже пробывал,он подходить в версии 7, на xe он не работает

[xrob]

если "не работает" - включите комп в розетку.
если включен - значит работает, но, возможно не так как вам надо.
вот и изучайте КАК это работает, подробно и пошагово:

наступает ли событие вообще, что приходит в key - ShowMessage(Key);
каковы результаты сравнения (Key>#192)
каковы результаты сравнения (Key<>' ')
выполняется ли общее условие

смотрите как работает и делайте выводы где, что нужно изменить

[SeNaT]

Загвоздка в том,что в delphi xe работает только в ANSI кодировке,метод указание от определённого символа до конечного теперь не канает

Для английской раскладки там отдельно преднозначено выражение ,я уже забыл ,но для русских слов всё это обделили,поэтому я и спрашиваю ,есть ли ещё какой нить обходной путь