Разрешить ввод в Е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();

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

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

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

	Разрешить ввод в Еdit только цифр 06.06.2012, 15:07. Показов 13964. Ответов 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 Супер-модератор 33412 / 21522 / 8236 Регистрация: 22.10.2011 Сообщений: 36,922 Записей в блоге: 12
	06.10.2012, 13:48
	NumbersOnly - только начиная с RAD 2009, раньше такого свойства не было, приходилось добавлять стиль ES_NUMBER эдиту. 0

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

Решение