Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
proglite
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 4
1

Не работает ввод русских букв в Edit

08.05.2013, 19:40. Просмотров 1636. Ответов 6
Метки нет (Все метки)

Всем доброго времени суток!
При вводе в Edit мне нужно, чтобы работали только русские буквы. Сделал следующее:
Delphi
1
2
3
4
procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['А'..'Я', 'а'..'я', #8 ]) then Key:=#0;
end;
И в итоге не вводится ничего. Подскажите, в чём проблема?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2013, 19:40
Ответы с готовыми решениями:

Ввод русских букв
Доброго времени суток. Я пишу программу, где нужно вводить Имена русскими буквами. Но Когда я...

Ввод русских букв
Создал функцию для проверки ввода только русских и английских букв в которую отсылаю Key с метода...

Как в delphi в Edit запретить ввод именно русских символов?
Как в delphi в Edit запретить ввод именно русских символов?

Ввод и отображение русских букв
Попался вот такой экзаменационный билет: Напишите программу, которая допускает ввод и...

Как запретить ввод в Edit букв?
procedure TForm5.Button1Click(Sender: TObject); var a,b,i:integer; s:real; begin...

6
Singleton
178 / 73 / 8
Регистрация: 27.12.2012
Сообщений: 404
08.05.2013, 19:44 2
Только что проверил, вполне себе работает.
0
proglite
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 4
08.05.2013, 19:46  [ТС] 3
В седьмом делфи работает, проблема в том, что в шараге 2010 стоит, и там не работает
0
Singleton
178 / 73 / 8
Регистрация: 27.12.2012
Сообщений: 404
08.05.2013, 19:49 4
По-идее разночтение типов char и widechar
0
proglite
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 4
08.05.2013, 19:54  [ТС] 5
А с этим можно что нибудь сделать? Или на седьмом компилировать?
0
Singleton
178 / 73 / 8
Регистрация: 27.12.2012
Сообщений: 404
08.05.2013, 20:14 6
А если так?
Delphi
1
if (Key<=#192)and(Key<>' ') then key:=#0
1
proglite
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 4
08.05.2013, 20:17  [ТС] 7
Спасибо, всё получилось
0
08.05.2013, 20:17
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.05.2013, 20:17

Как в окно Edit'а не допустить ввод букв?
как выполнить защиту от ввода в edit букв? и чтоб при этом выдавалось сообщение

Дан текст из строчных русских букв. Подсчитать количество гласных букв в тексте
Дан текст из строчных русских букв. Подсчитать количество гласных букв в тексте.

Запрет на ввод чисел в EDIT, пока не будет заполнено другое поле edit
Здравствуйте! Дело в том, что мне нужно сделать так, чтобы одно поле edit нельзя было заполнять до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.