-
Подскажите, пожалуйста, как внутри FormKeyPress проще и правильнее проверить, что Key является буквой алфавита, а не управляющим (типа ESCAPE или BACKSPACE)?
-
if UpCase(Key) in ['A'..'Z'] then ...
-
Если честно, я с этого и начал, но обнаружил, что с русским алфавитом такое не прокатывает (( Помогите, пожалуйста!
-
версию делфи необходимо указывать.
if IsLetter(Key) then...
-
-
Юрий Зотов © (10.04.17 08:19) [4]
X = 1 - X
-
Можно и как-то так if ord(Key)>191 or ord(Key)=168 or ord(Key)=184 then
-
> if IsLetter(Key) then... Большое спасибо! Сорри, что версию дельфи забыл указать (
> X = 1 - X А это что? Какая-то местная шутка, которой я ещё не слышал? ;)
-
> IGray (10.04.17 16:09) [7] > > X = 1 - X > А это что? Какая-то местная шутка, которой я ещё не слышал?
Причем свежая, буквально вчера рожденная. Если я правильно понял, то Игорь хотел сказать, что при переходе на версию Delphi с Юникодом, код в [4] работать перестанет.
-
> Юрий Зотов © (10.04.17 16:55) [8]
ну, [2] частично и намекнул, что там не D7
-
3*
const Ё = Char('Ё'); е = Char('ё'); А = Char('А'); я = Char('я'); begin case Key of Ё, е, А..я: {} ; else Key := #0 end; end;
> X = 1 - X и где мои 0,5? (?) ))
-
> Kilkennycat © (10.04.17 17:23) [9]
> ну, [2] частично и намекнул, что там не D7
Не-а не намекнул. В D7 UpCase с русскими буквами тоже не прокатывает.
-
> Юрий Зотов © (10.04.17 17:46) [11
да? значит, непомню уже...
> NoUser © (10.04.17 17:36) [10]
всё равно х=х-1 - где поддержка японского?
-
Так всё-таки, причём тут иксы? Я тоже над шуткой поржать хочу ;)
-
-
IsCharAlpha вроде как ещё на запретили?
|