|
Вопрос # 5 469/ вопрос открыт / |
|
Здравствуйте, эксперты!
У меня такая проблема-нужно чтобы в Edit можно было ввести только латиницу(ну и цифры и символы) главное чтобы без кириллицы.
Как это сделать?
 |
Вопрос задал: Aristotel (статус: Посетитель)
Вопрос отправлен: 1 июля 2011, 11:54
Состояние вопроса: открыт, ответов: 3.
|
Ответ #1. Отвечает эксперт: Эхо Унитазного Бачка
Здравствуйте, Aristotel!
На память есть обработчик OnKeyPress - туда воткни проверку на вхождение <key> в множество ['а' .. 'я', 'А', 'Я'].
 |
Ответ отправил: Эхо Унитазного Бачка (статус: 1-ый класс)
Время отправки: 1 июля 2011, 12:29
Оценка за ответ: -1
Комментарий к оценке: Ну и как проверить?
|
Ответ #2. Отвечает эксперт: bugmenot
Боян, обсуждалось бесчисленное кол-во раз.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
Allowed = ['0'..'9', 'A'..'Z', 'a'..'z'];
begin
if not CharInSet(Key, Allowed) then
Key := #0;
end;
 |
Ответ отправил: bugmenot (статус: 3-ий класс)
Время отправки: 1 июля 2011, 12:35
Оценка за ответ: 3
Комментарий к оценке: А в какое место программы надо вставлять это?
|
Ответ #3. Отвечает эксперт: min@y™
Цитата (Aristotel):
Я написал кусок кода
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['А'..'Я', 'а'..'я', 'Ё', 'ё']
then Key := #0;
end;
но у меня всё равно вводятся русские буквы-уже не знаю что делать. Подскажите плиз
Да надоел ты уже! Ну сколько можно? Написал я тебе пример, потратил 3 минуты. Прицепляю к ответу.
З.Ы. Мой телепатор говорит, что ты не смог присвоить обработчик событию OnKeyPress.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 6 июля 2011, 11:05
Оценка за ответ: 4
Комментарий к оценке: У меня почему то не пашет хотя сделал как у тебя
|
Мини-форум вопроса
Всего сообщений: 39; последнее сообщение — 7 июля 2011, 10:51; участников в обсуждении: 6.
Страницы: [1] [2] [Следующая »]
|
Gooddy (статус: 3-ий класс), 1 июля 2011, 12:40 [#1]:
bugmenot: CharInSet? А оператор in не работает?
А да. С юникодом не работает.
Чисти код! Чисти код! Чисти код!
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2011, 12:41 [#2]:
Цитата (bugmenot):
Боян, обсуждалось бесчисленное кол-во раз.
Я тебя умоляю! Как насчёт Ctrl+C и Ctrl+V?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2011, 12:56 [#4]:
Цитата (Эхо Унитазного Бачка):
Тут OnChange обрабатывать надо от копипасты. Все решаемо.
Ога, ты ещё скажи, кириллицу в транслит переводить!
Ну НАХРЕНА это надо-то? Объясни, а?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 1 июля 2011, 12:57 [#5]:
Цитата (Gooddy):
А да. С юникодом не работает.
Увы, рекомендуемый свыше костыль, WideChar в паскальный set никак не влезает.
Цитата (min@y™):
Я тебя умоляю! Как на счёт Ctrl+C и Ctrl+V? "насчёт", слитно. Копипаста не является прямым вводом. (щас начнется, а если злой юзер пошлет WM_SETTEXT, а если у него SoftIce)
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2011, 13:23 [#6]:
Цитата (bugmenot):
щас начнется, а если злой юзер пошлет WM_SETTEXT, а если у него SoftIce
Поэтому я и спросил, нахрена такое ограничение.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 1 июля 2011, 14:14 [#7]:
Цитата (min@y™):
нахрена такое ограничение
Ну почему же, как предварительная проверка ввода - очень даже удобно.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 1 июля 2011, 14:56 [#8]:
Цитата (bugmenot):
предварительная проверка ввода - очень даже удобно.
Щас придёт Вадим К и плюнет тебе в морду прочитает тебе лекцию насчёт (<--- слитно) удобства такой байды.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 2 июля 2011, 19:16 [#10]:
Только мне отлучится на пару дней - так тут уже на меня телегу катят. bugmenot: ты сначала определись, ты девочка или мальчик. А то в профиле написано, что девочка, а грубишь, как пацан с подворотни.
min@y™: Почему это я собрался плевать?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
bugmenot (статус: 3-ий класс), 3 июля 2011, 13:01 [#11]:
Цитата (Вадим К):
ты сначала определись, ты
Что-то я не припомню, как мы с вами спотыкач распивали и в процессе перешли на "ты"...
Цитата (Вадим К):
с подворотни
Сам-то с деревни что-ли? :-P
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Вадим К (статус: Академик), 3 июля 2011, 19:57 [#12]:
в Украине деревень нет, так что не получится
я только в данном случае употребил "ты", потому что не понятно пол. Я не дискриминирую сексменшины, но любой человек, всегда знает, какого он пола.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 4 июля 2011, 08:24 [#13]:
Уважаемые телезрители! Вы только что просмотрели кинофильм "Любовь и голуби".
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bugmenot (статус: 3-ий класс), 4 июля 2011, 16:54 [#14]:
Цитата (Вадим К):
в Украине
те кто знает два языка и оба их коверкает - достойны дискриминации, по крайней мере до тех пор, пока на этом вашем суржике не начнут издавать серьезные книги.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
min@y™ (статус: Доктор наук), 4 июля 2011, 17:10 [#15]:
Цитата (bugmenot):
те кто знает два языка и оба их коверкает - достойны дискриминации, по крайней мере до тех пор, пока на этом вашем суржике не начнут издавать серьезные книги.
Суржик - это наше ВСЁ! А ты, чо, против? Аргументируй!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 4 июля 2011, 17:16 [#16]:
Понятно, bugmenot, слив защитный.
"В" это не коверканье. Даже целые статьи есть http://gn.org.ua/in_ua
Там есть ключевая фраза Цитата:
Какой бы вариант вы ни выбрали, вас наверняка обвинят то ли в шовинизме и неуважении к независимой Украине, то ли в извращённом насилии над русским языком.
Так скажи ка свой пол, или ещё не определился?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
bugmenot (статус: 3-ий класс), 4 июля 2011, 17:30 [#17]:
Цитата (min@y™):
А ты, чо, против?
Надо было написать не "чо", а "шо" Ж-)
Книг не читают, вот и писать грамотно не могут, не говоря уж о знаниях...
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
bugmenot (статус: 3-ий класс), 4 июля 2011, 17:35 [#18]:
Цитата (Вадим К):
то ли в извращённом насилии
Если бы, извращенном, ЛОЛ. Чтобы издеваться надо грамотным быть, как минимум:
Цитата (Вадим К):
слив защитный
«Волны перекатывались через мол и падали вниз стремительным домкратом» :-P
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Aristotel (статус: Посетитель), 5 июля 2011, 11:07 [#19]:
Пипець вы между собой будете разбираться кто какого пола или на каком языке написал или НАКОНЕЦ-ТО ПОМОЖЕТЕ МНЕ???!!
|
|
|
min@y™ (статус: Доктор наук), 5 июля 2011, 11:24 [#20]:
Цитата (Aristotel):
НАКОНЕЦ-ТО ПОМОЖЕТЕ МНЕ???!!
Куски кода, расположенные выше, тебе не подошли? Почему?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
