проверка ввода

@Sniti01 · Регистрация: 25.10.2012

Author24 — интернет-сервис помощи студентам

Добрый день! Как проверить ввел ли символ пользователь символ заместо цифры. Сомо собой if, но у меня только появилась идея что подключить алфавит и перебирать ввел ли пользователь какую-нибудь букву из этого алфавита, (конечно же это геморойно) как можно проще?

@xNeKiToSx · 13.05.2013, 21:38

множества

@Sniti01 · 13.05.2013, 21:42 **[ТС]**

Сообщение от xNeKiToSx

множества

А по конкретней?)

@droider · 13.05.2013, 21:55

Сообщение от Sniti01

А по конкретней?)

Вам нужно запретить ввод цифр?

Delphi    
        
    Скопировано
1
if key in ['0'..'9'] then key :=#0;

@F1lin · 13.05.2013, 21:58

например

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
type Tsimbol = set of char;
var simbol:Tsimbol;
s:string;
потом уже в програме
simbol:=['a'..'z','а'..'я']
s:=Edit1.text;
s:=AnsiUpperCase(s);
for i:=1 to length(s) do
if s[i] in simbol then
<что нужно выполнить>

@Sniti01 · 13.05.2013, 21:58 **[ТС]**

Сообщение от droider

Вам нужно запретить ввод цифр?
Код Delphi
1
if key in ['0'..'9'] then key :=#0;

нет запретить ввод символов. Если конечно не сложно, то желательно прокомментировать как работает.

@mss · 13.05.2013, 22:01

Сообщение от Sniti01

Сомо собой if

Это почему же "сомо" ?
Что, case и in уже упразднили ?

@F1lin · 13.05.2013, 22:06

Только вместо AnsiUpperCase нужно AnsiLowerCase

@droider · 13.05.2013, 22:08

Sniti01,

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//если символ входит в указанное множество, то запрещаем его ввод
if key in['.',',',';',':','-','!','?','#','@','$',' ','%','*','"',''''] then  key :=#0;
 
end;
 
end.

Добавлено через 1 минуту
недостающие символы добавьте сами

@Sniti01 · 13.05.2013, 22:09 **[ТС]**

Сообщение от mss

Это почему же "сомо" ?
Что, case и in уже упразднили ?

Я по другому не представляю даже. Не знаю как через in (да и к сожалению не знаю что за in), через case это со swich проверать? В общем буду дальше гуглить.

@droider · 13.05.2013, 22:11

Оператор in позволяет проверять вхождение элемента в определенное множество
['.',',',';',':','-','!','?','#','@','$',' ','%','*','"',''''] -множество символов.

@mss · 13.05.2013, 22:12

Сообщение от Sniti01

через case это со swich проверать?

"Смешались в кучу кони, люди .." (с)

@Sniti01 · 13.05.2013, 22:13 **[ТС]**

ООО немного не туда зашол мне ни на Delphi мне на с++))

@droider · 13.05.2013, 22:17

Не по теме:

Сообщение от Sniti01

мне ни на Delphi мне на с++))

вообще класс!

Добавлено через 2 минуты

Не по теме:

полчаса объяснял, а ему не туда... Ужас:D

@Sniti01 · 13.05.2013, 22:18 **[ТС]**

Сообщение от droider

Сообщение от Sniti01

мне ни на Delphi мне на с++))

вообще класс!

Извените конечно если потревожил кого!!!

@droider · 13.05.2013, 22:19

Sniti01, бывает

Успехов!

@Sniti01 · 13.05.2013, 22:22 **[ТС]**

droider,спасибо за помощь! И вам успехов!

@droider 4925 / 2792 / 856 Регистрация: 04.10.2012 Сообщений: 10,175
	13.05.2013, 22:17	14
	Не по теме: Сообщение от Sniti01 мне ни на Delphi мне на с++)) вообще класс! Добавлено через 2 минуты Не по теме: полчаса объяснял, а ему не туда... Ужас:D 1

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 22:18 [ТС]	15
	Сообщение от droider Сообщение от Sniti01 мне ни на Delphi мне на с++)) вообще класс! Извените конечно если потревожил кого!!! 0

@droider 4925 / 2792 / 856 Регистрация: 04.10.2012 Сообщений: 10,175
	13.05.2013, 22:19	16
	Sniti01, бывает Успехов! 0

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
		1
	проверка ввода 13.05.2013, 20:51. Показов 2489. Ответов 16 Метки нет (Все метки) Добрый день! Как проверить ввел ли символ пользователь символ заместо цифры. Сомо собой if, но у меня только появилась идея что подключить алфавит и перебирать ввел ли пользователь какую-нибудь букву из этого алфавита, (конечно же это геморойно) как можно проще? 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	13.05.2013, 21:38	2
	множества 0

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 21:42 [ТС]	3
	Сообщение от xNeKiToSx множества А по конкретней?) 0

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 21:58 [ТС]	6
	Сообщение от droider Вам нужно запретить ввод цифр? Код Delphi 1 if key in ['0'..'9'] then key :=#0; нет запретить ввод символов. Если конечно не сложно, то желательно прокомментировать как работает. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	13.05.2013, 22:01	7
	Сообщение от Sniti01 Сомо собой if Это почему же "сомо" ? Что, case и in уже упразднили ? 1

@F1lin 3 / 3 / 0 Регистрация: 30.09.2012 Сообщений: 9
	13.05.2013, 22:06	8
	Только вместо AnsiUpperCase нужно AnsiLowerCase 1

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 22:09 [ТС]	10
	Сообщение от mss Это почему же "сомо" ? Что, case и in уже упразднили ? Я по другому не представляю даже. Не знаю как через in (да и к сожалению не знаю что за in), через case это со swich проверать? В общем буду дальше гуглить. 0

@droider 4925 / 2792 / 856 Регистрация: 04.10.2012 Сообщений: 10,175
	13.05.2013, 22:11	11
	Оператор in позволяет проверять вхождение элемента в определенное множество ['.',',',';',':','-','!','?','#','@','$',' ','%','*','"',''''] -множество символов. 1

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	13.05.2013, 22:12	12
	Сообщение от Sniti01 через case это со swich проверать? "Смешались в кучу кони, люди .." (с) 0

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 22:13 [ТС]	13
	ООО немного не туда зашол мне ни на Delphi мне на с++)) 0

@Sniti01 0 / 0 / 1 Регистрация: 25.10.2012 Сообщений: 50
	13.05.2013, 22:22 [ТС]	17
	droider,спасибо за помощь! И вам успехов! 0