Аватар для Markot777
5 / 7 / 1
Регистрация: 02.06.2012
Сообщений: 42

Разрешить ввод в Еdit только цифр

06.06.2012, 15:07. Показов 13793. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите сделать коректность ввода в Edit (вводить можно толькочисла , в случае ввода букв выскакиволо сообщение о неправильном вводе)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.06.2012, 15:07
Ответы с готовыми решениями:

В StringGrid и Edit разрешить ввод только чисел
Нужна помошь, есть два элемента StringGrid и Edit, я хочу сделать так, что бы в них можно было вводить только цифры. Понимаю можно было...

Разрешить ввод только уникальных символов в TEdit
Здравствуйте! У меня имеется такой код: void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) ...

Ввод только букв и цифр
возможно ли в данном случае разрешить ввод цифр тоже? и правильно ли я понимаю, что isdigit() здесь не уместен? do{ ...

12
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
06.06.2012, 15:15
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TFindInvent_Number::Edit1KeyPress(TObject *Sender,
      char &Key)
{
Set < char, 0, 255 > Dig;
 if ( ! (Dig << '0' <<'1' << '2' << '3' <<'4' << '5'
             << '6' << '7'<< '8' << '9'<<'\b').Contains(Key))
 
 if ( ! Dig.Contains(Key))
    {
      Application->MessageBox("В это поле, необходимо вводить только цифры!!!!!!","Внимание",MB_ICONWARNING);
      Key = 0;
    }
 
 
 
}
2
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
06.06.2012, 15:15
Лучший ответ Сообщение было отмечено как решение

Решение

"помогите"... Свои мысли имеются? Искать здесь пробовали? Эта тема уже измусолена до невозможности.
3
 Аватар для KATbIK
86 / 81 / 28
Регистрация: 02.08.2011
Сообщений: 335
06.06.2012, 15:20
Для buildera миллионы ответов в интернете и на этом форуме в том числе.

Но если хочешь вот экзотический способ от меня
Нужна библиотека boost, можно и на pcre и т.п.
Пример

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
boost::regex regs("(^(?:[-]?[1-9]\\d*?)|(?:[0]))(?:\\D(\\d+))?$");
std::string s = текст с edit;
boost::smatch res;
if(!boost::regex_match(s, res, regs))
{
     // Ошибка
}
s.clear();
if(res[2] == "")
{
     s = res[1];
} else
  {
       s = res[1] + "." + res[2];
  }
s - готовое число
1
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
06.06.2012, 16:03
Ну, раз уж зашла речь об экзотических, то и я не удержусь... (правда, это только фильтр, без сообщения, но его прикрутить не проблема)__
C++
1
2
3
4
5
6
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    AnsiString Ts = "0123456789\b";
    char Tr[] = { '\0','0','1','2','3','4','5','6','7','8','9','\b' };
    Key = Tr[Ts.Pos(Key)];
}
2
 Аватар для Markot777
5 / 7 / 1
Регистрация: 02.06.2012
Сообщений: 42
07.06.2012, 02:28  [ТС]
а ввод только букв--- аналогично, или можно както проще
0
1569 / 505 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
07.06.2012, 04:02
Чего-то вы как-то все хитро сделали

А попроще?

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
    try {
        StrToInt(Key);
    }
    catch (...) {
        Application->MessageBox(L"Ай-ай-ай, это не циферко!", L"Внимание",MB_ICONWARNING);
        Key=0;
    }
}
0
1569 / 505 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
07.06.2012, 04:30
Markot777,
Цитата Сообщение от Markot777 Посмотреть сообщение
а ввод только букв--- аналогично, или можно както проще
А вот так мона:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key) {
    try {
        StrToInt(Key);
        Application->MessageBox(L"Ай-ай-ай, это не букофка!", L"Внимание",
            MB_ICONWARNING);
        Key = 0;
    }
    catch (...) {
 
    }
}
Ну хотя это исключает ввод только цифр
1
 Аватар для Kabak
159 / 145 / 14
Регистрация: 03.02.2012
Сообщений: 788
Записей в блоге: 1
05.10.2012, 11:43
Можно ещё тупо и молча запретить ввод любых символов в любом поле:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TUnitSheet::BillNumKeyPress(TObject *Sender, System::WideChar &Key)
{
// блокировка любых символов и последовательностей
// в данном случае, всё что не цифра или не BACK SPACE - стрелка на клаве <--, отсекается.
      if((Key<'0'||Key>'9') && Key!=VK_BACK)
        BillNum->ReadOnly=true;
}
 
void __fastcall TUnitSheet::BillNumKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
        BillNum->ReadOnly=false;
}
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
06.10.2012, 01:15
Вставлю свои три копейки
C++
1
2
3
4
5
6
7
8
9
10
11
               this->Label1->Caption = "";
                this->Label2->Caption = "";
                this->Label3->Caption = "";
                for (int i=1;i<=this->Edit1->Text.Length();i++)
                {
                                if (isdigit(this->Edit1->Text[i]))
                                                this->Label1->Caption = this->Label1->Caption + this->Edit1->Text[i];
                                else if (isalpha(this->Edit1->Text[i]))
                                                this->Label2->Caption = this->Label2->Caption + this->Edit1->Text[i];
                                else    this->Label3->Caption = this->Label3->Caption + this->Edit1->Text[i];
                }
код не мой, поэтому работает безглюков...

Вот еще один простенький вариант:
C++
1
2
if (Edit5->Text<0||Edit5->Text>9) ShowMessage ("ввели буквы");
    else   ShowMessage ("ввели цыфры");
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
06.10.2012, 03:11
C++
1
2
3
4
5
6
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->NumbersOnly= true;
}
//---------------------------------------------------------------------------
2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33369 / 21495 / 8234
Регистрация: 22.10.2011
Сообщений: 36,892
Записей в блоге: 12
06.10.2012, 13:48
NumbersOnly - только начиная с RAD 2009, раньше такого свойства не было, приходилось добавлять стиль ES_NUMBER эдиту.
0
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
06.10.2012, 17:34
C++
1
Edit->Clear();
краткость - сестра таланта
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.10.2012, 17:34
Помогаю со студенческими работами здесь

Ввод в поле Edit только цифр (целых и вещественных)
Привет участникам форума! Меня интересует как при помощи события OnKeyPress в компонент TEdit можно было б вводить только цифры. На...

Ввод только цифр, русских и латинских букв в DBEdit c работающей клавишей Backspace
У меня получилось сделать чтобы вводились только цифры. void __fastcall TForm4::DBEdit4KeyPress(TObject *Sender, char &amp;Key) { if...

TOraQuery запрет вставки, разрешить только редактирование
На TDBGridEh отображаются некие данные. как сделать что бы эти данные можно было только редактировать?

Ограничение на ввод символов (разрешить ввод только цифр)
Всем доброго времени суток! Я начал изучать С++ и у меня возник такой вопрос: Как ограничить ввод символов (разрешить ввод только...

Разрешить ввод только цифр
столкнулся с тем что нужно сделать защиту от случайного ввода, тоесть нужно чтобы если в место строки, допустим, 2+2*2 введут а+2*2...


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

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

Новые блоги и статьи
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru