VPF::Ограничение ввода данных в TEdit

huminclouds

Дата 20.11.2012, 14:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Почему-то не срабатывает простейшая процедура Delphi 2010 под Win XP x86

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['А'..'Я', 'а'..'я', 'Ё', 'ё', #8, #32]) then
    Key := #0;
end;

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

Это сообщение отредактировал(а) huminclouds - 20.11.2012, 14:12

northener

Дата 21.11.2012, 00:27 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 8
Всего: 20

Цитата(huminclouds @ 20.11.2012, 14:11

)

Почему-то не срабатывает простейшая процедура Delphi 2010

Давно уже задумывался над тем, как компилятор в Д2009+ сможет разрулить такую ситуацию, когда элемент набора set может быть только однобайтным, а в строке кода:

Код


  if not (Key in ['А'..'Я', 'а'..'я', 'Ё', 'ё', #8, #32]) then

проверяется вхождение в набор двухбайтного WideChar?
Поэтому (в том числе) до сих пор и не собираюсь переходить на Д2009+ smile

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

huminclouds

Дата 21.11.2012, 11:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

А вот такая конструкция вполне себе работает:

Код


 case Key of
    'А'..'Я', 'а'..'я', 'Ё', 'ё', #8, #32: ;
 else
   Key:=#0;
 end;

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