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

@Markot777 · Регистрация: 02.06.2012

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

помогите сделать коректность ввода в Edit (вводить можно толькочисла , в случае ввода букв выскакиволо сообщение о неправильном вводе)

@Sasha · 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;
    }
 
 
 
}

@nick42 · 06.06.2012, 15:15

"помогите"... Свои мысли имеются? Искать здесь пробовали? Эта тема уже измусолена до невозможности.

@KATbIK · 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 - готовое число

@nick42 · 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)];
}

@Markot777 · 07.06.2012, 02:28 **[ТС]**

а ввод только букв--- аналогично, или можно както проще

The_Immortal · 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;
    }
}

The_Immortal · 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 (...) {
 
    }
}

Ну хотя это исключает ввод только цифр

@Kabak · 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;
}

@Samrisbe · 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 ("ввели цыфры");

@Avazart · 06.10.2012, 03:11

C++
1
2
3
4
5
6
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->NumbersOnly= true;
}
//---------------------------------------------------------------------------

@volvo · 06.10.2012, 13:48

NumbersOnly - только начиная с RAD 2009, раньше такого свойства не было, приходилось добавлять стиль ES_NUMBER эдиту.

cpp_developer · 06.10.2012, 17:34

C++
1
Edit->Clear();

краткость - сестра таланта

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока 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 с разными данными.

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

	Разрешить ввод в Еdit только цифр 06.06.2012, 15:07. Показов 13793. Ответов 12 Метки нет (Все метки) помогите сделать коректность ввода в Edit (вводить можно толькочисла , в случае ввода букв выскакиволо сообщение о неправильном вводе) 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	06.06.2012, 15:15
	Сообщение было отмечено как решение Решение "помогите"... Свои мысли имеются? Искать здесь пробовали? Эта тема уже измусолена до невозможности. 3

@Markot777 5 / 7 / 1 Регистрация: 02.06.2012 Сообщений: 42
	07.06.2012, 02:28 [ТС]
	а ввод только букв--- аналогично, или можно както проще 0

@volvo Супер-модератор 33369 / 21495 / 8234 Регистрация: 22.10.2011 Сообщений: 36,892 Записей в блоге: 12
	06.10.2012, 13:48
	NumbersOnly - только начиная с RAD 2009, раньше такого свойства не было, приходилось добавлять стиль ES_NUMBER эдиту. 0

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

Решение