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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

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

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

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

Решение