30.05.2012, 22:21
|
 |
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Так?
Цитата:
if not CharInSet(AnsiChar(Key), ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я', '-', ' ', #8, #39, 'ё', 'Ё', 'Ї', 'ї', 'є', 'Є', 'І', 'і']) then
Key := #0;
|
........ |