Защита от ввода некорректных значений

@lordik55 · Регистрация: 28.07.2012

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

Всем здравствуйте, решил поставить на защиту от ввода некорректных значений свою программку. Несколько готовых решений нашёл из своего старого калькулятора на Delphi. Перевел защиту от пустых строк. Работает:

C++
1
2
3
4
5
6
7
8
if ((Edit1->Text=="") || (Edit2->Text==""))
  {
    ShowMessage("EЯЯ0Я");
  }
  else if ((Edit1->Text!="") || (Edit2->Text!="")) {
 
  Lambda=StrToFloat(Edit1->Text);
  Time_Obs=StrToFloat(Edit2->Text);

Сейчас задался вопросом, а возможно остальной код переделать? Попробовал сделать с вводом букв (мне надо чтобы вводились только цифры >0) - не хочет компилиться.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
  if not (Key in ['0'..'9',#8,',','-']) then
   begin
    showmessage('Ошибка, Символ!');
    key:=#0;
   end
 else
   begin
    if (Key=',')and ((pos(',',edit1.Text)>0) or (edit1.Text='')) then
      begin
       showmessage ('Ошибка, Запятая!');
       Key:=#0;
      end;
    if (key='-') and ((pos('-',edit1.Text)>0) or (edit1.Text <>'')) then
   begin
    Showmessage ('Ошибка, Минус');
    key:=#0;
   end;
   end;
  end;

Данный код позволяет ввести только цифры, один минус и один отделитель (запятую).
В C++ на Edit'е так-же пробовал делать через KeyPress. Есть предположения?

@Gremlin · 05.11.2012, 23:45

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//---------------------------------------------------------------------------
bool wj_IsInt(String inp)
{
    // если входная строка пустая
    if(inp.Length() == 0)
    {
        return false;
        Form1->Caption = "1";
    }
    int i = 1;
    // возможно отрицательное число (-12345)
    if(inp[i] == '-' && inp.Length() > 1)
    {
        i++;
    }
    // продолжаем проверку
    bool ret = true;
    bool zap = false; // для поиска запятой
    for(i; i <= inp.Length(); i++)
    {
        // если символ (1,2,3,4,5,6,7,8,9,0) то все ок!
        if(String(inp[i]) == "1" ||
        String(inp[i]) == "2" ||
        String(inp[i]) == "3" ||
        String(inp[i]) == "4" ||
        String(inp[i]) == "5" ||
        String(inp[i]) == "6" ||
        String(inp[i]) == "7" ||
        String(inp[i]) == "8" ||
        String(inp[i]) == "9" ||
        String(inp[i]) == "0")
        {
            // good
        }
        else if(String(inp[i]) == ",") // разрешаем запятую если...
        {
            if(zap == false) // если она раньше не встрячалась
            {
                if(i < inp.Length()) // если она не последняя в строке, при желании,
                                         //можно оставить ее последней, но дописать вконце "0" для валидности
                {
                    zap = true; // помечаем, что запятая уже есть
                }
                else
                {
                    return false;
                }
            }
            else // если же она раньше уже встречалась... то ошибка
            {
                return false;
            }
        }
        else // если в строке несколько запятых, или другие символы то - Fail
        {
            return false;
        }
    }
    return ret; // если цикл пройден то это число
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if(wj_IsInt(Edit1->Text))
    {
        Button2->Caption = "true";
    }
    else
    {
        Button2->Caption = "false";
    }
}
//---------------------------------------------------------------------------

@kazak · 06.11.2012, 07:00

Не по теме:

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

C++
1
2
3
4
5
6
7
8
9
10
if(String(inp[i]) == "1" ||
 String(inp[i]) == "2" ||
 String(inp[i]) == "3" ||
 String(inp[i]) == "4" ||
 String(inp[i]) == "5" ||
 String(inp[i]) == "6" ||
 String(inp[i]) == "7" ||
 String(inp[i]) == "8" ||
 String(inp[i]) == "9" ||
 String(inp[i]) == "0")

C++
1
2
if(String(inp[i]) >= "0" &&
 String(inp[i]) <= "9")

@Gremlin · 06.11.2012, 10:42

еще можно так:

C++
1
if(!isdigit(inp[i]))

но почему то ошибка у меня была в коде, всегда false возвращало, поэтому и поставил костыль для видимости

cpp_developer · 06.11.2012, 10:58

может,

C++
1
inp[i]

должно быть

C++
1
char

, а не

C++
1
String

@kazak · 06.11.2012, 19:29

Не по теме:

Так вроде String[] должна возвращать char, или я путаю с чем-то?

@lordik55 · 06.11.2012, 22:07 **[ТС]**

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

Код C++

Спасибо конечно за свой метод, но я бы лучше своим методом. Вот перевёл так, чтобы вводились только цифры в Edit'ы:

C++
1
2
3
4
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
    if (Key < '0' || Key > '9') Key = 0;
}

Осталось на более двух запятых и отрицательных значений.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
  if not (Key in ['0'..'9',#8,',','-']) then
   begin
    showmessage('Ошибка, Символ!');
    key:=#0;
   end
 else
   begin
    if (Key=',')and ((pos(',',edit1.Text)>0) or (edit1.Text='')) then
      begin
       showmessage ('Ошибка, Запятая!');
       Key:=#0;
      end;
    if (key='-') and ((pos('-',edit1.Text)>0) or (edit1.Text <>'')) then
   begin
    Showmessage ('Ошибка, Минус');
    key:=#0;
   end;
   end;
  end;

=> C++

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@kazak
	06.11.2012, 19:29
	Не по теме: Так вроде String[] должна возвращать char, или я путаю с чем-то? 0