Ошибка при нажатии кнопки в программе

@Draka_za_edy · Регистрация: 07.03.2018

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

Привет,у меня возникла проблема,при запуске проекта все компилируется,но если нажать на кнопку(button1),сразу появляется сообщение об ошибке "ProjectProject1.exe raised exception class ERangeError with message 'Range check error'.",ссылается на эту строчку

C++
1
 ThrowIfOutOfRange(idx);   // Should Range-checking be optional to avoid overhead ??

.
вот в здесь это дело находится:

C++
1
2
3
4
#if defined(_DELPHI_STRING_ONE_BASED)
      ThrowIfOutOfRange(idx);   // Should Range-checking be optional to avoid overhead ??
      Unique();                 // Ensure we're not ref-counted
      return Data[idx-1];

Сама страница называется

C++
1
ustring.h

.

@volvo · 17.12.2018, 00:20

Так и будем на слух лечить больного?

Ну что ж... Очень похоже на попытку обратиться к нулевому индексу строки. Строки в Билдере - из Дельфи, так что индексируются в 1-цы, а не с 0...

@Draka_za_edy · 17.12.2018, 00:33 **[ТС]**

Вот код,я ничего тут не заметил такого,не понимаю почему не работает.

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//-------------------------------------------| лавушка для дурака,в Edit1
bool ist = false;
    if (Edit1->Text != "")                              //если textbox не пустой
    for (int i = 0, cifr = 0, kpoint = 0; i < (Edit1->Text.Length()); i++)
    {
    if (isdigit(Edit1->Text[i]))                         //подсчёт количества цифр во введённом значение
cifr++;
    if (Edit1->Text[i] == '.')                           //подсчёт количества точек во введённом значение
kpoint++;
    if (((kpoint == 1) && (cifr == Edit1->Text.Length() - 1) || (cifr == Edit1->Text.Length()) || (cifr == Edit1->Text.Length() - 1)
     && (Edit1->Text[0] == '-') || (cifr == Edit1->Text.Length() - 2) && (kpoint == 1) && (Edit1->Text[0] == '-')) && (Edit1->Text[0] != '.') && (Edit1->Text[Edit1->Text.Length() - 1] != '.'))
ist = true;
    }
if (!ist)
{
ShowMessage("Введены не числа");  // Вывод сообщения об ошибке
return;
}
//---------------------------------------------| лавушка для дурака,в Edit2
ist = false;
    if (Edit2->Text != "")
    for (int i = 0, cifr = 0, kpoint = 0; i < (Edit2->Text.Length()); i++)
    {
    if (isdigit(Edit2->Text[i]))
cifr++;
    if (Edit2->Text[i] == '.')
kpoint++;
    if (((kpoint == 1) && (cifr == Edit2->Text.Length() - 1) || (cifr == Edit2->Text.Length()) || (cifr == Edit2->Text.Length() - 1)
    && (Edit2->Text[0] == '-') || (cifr == Edit2->Text.Length() - 2) && (kpoint == 1) && (Edit2->Text[0] == '-')) && (Edit2->Text[0] != '.') && (Edit2->Text[Edit2->Text.Length() - 1] != '.'))
ist = true;
    }
if (!ist) {
ShowMessage("Введены не числа");
return;
}
//---------------------------------------------| лавушка для дурака,в Edit3
ist = false;
    if (Edit3->Text != "")
    for (int i = 0, cifr = 0, kpoint = 0; i < (Edit3->Text.Length()); i++)
    {
    if (isdigit(Edit3->Text[i]))
cifr++;
    if (cifr == Edit3->Text.Length())
ist = true;
    }
if (!ist)
    {
ShowMessage("Количество шагов должно быть натуральным числом");
return;
    }
//---------------------------------------------------------
double a = 0, b = 0;    //нижняя и верхняя границы
int n = 0;     //количество шагов разбиения
String A = Edit1->Text, B = Edit2->Text, N = Edit3->Text;
    b = StrToInt64(B);
    a = StrToInt64(A);
    n = StrToInt64(N);
    if (a >= b)//можно попробывать сделать просто a>b,чтобы был возможен вариант с нулем
    {
ShowMessage("Нижняя граница больше верхней");
return;
    }
n = StrToInt64(Edit3->Text);   //преобразование в значение типа int
    if (n <= 0)
    {
ShowMessage("Количество шагов разбиения должно быть больше 0");
return;
    }
//---------------------------------------------------------|ТУТ САМОЕ ИНТЕРЕСНОЕ
double h = (b - a) / n,   //считаем длину шагов
a2 = a;                   // приравниваем нижнею границу для выполнения второго метода
double sum1 = 0, sum2 = 0;
    if (RadioButton1->Checked)// ЕСЛИ НАЖАТЬ SIN(X)...
    {
    while (a < b) //пока нижняя граница меньше верхней
    {     // метод прямоугольников
sum1 += sin(a); //считаем сумму (y(0)+y(1)+..+y(n-1)
//chart1->Series[0]->Points->AddXY(a, sin(a));  //добавление значений на график.НЕ РАБОТАЕТ,КОМПОНЕНТА НЕТ В БИЛДЕРЕ,ЗАМЕНИТЬ НА IMAGE,или типо того
a += h;
    }
sum2 = sin(a2);               //метод трапеций y[0]
a2 += h;
while (a2 < b)
    {
sum2 += 2 * sin(a2); // подсчёт удвоенных знач(2y[2]+...+2y[n-1]
a2 += h;
    }
sum2 += sin(a2);        //y[n]
    }
//----------------------------------
if (RadioButton2->Checked)
    {
    while (a < b)
    {
sum1 += cos(a);
a += h;
    }
sum2 = cos(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * cos(a2);
a2 += h;
}
sum2 += cos(a2);
}
if (RadioButton3->Checked) {
while (a < b) {
sum1 += tan(a);
a += h;
}
sum2 = tan(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * tan(a2);
a2 += h;
}
sum2 += tan(a2);
}
if (RadioButton4->Checked) {
while (a < b) {
sum1 += 1 / tan(a);
a += h;
}
sum2 = 1 / tan(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * (1 / tan(a2));
a2 += h;
}
sum2 += 1 / tan(a2);
}
Edit4->Text = FormatFloat("#.###", h * sum1);
Edit5->Text = FormatFloat("#.###", h * sum2 / 2.);
}

@volvo · 17.12.2018, 00:46

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

C++
6
7
8
for (int i = 0, cifr = 0, kpoint = 0; i < (Edit1->Text.Length()); i++)
* * {
* * if (isdigit(Edit1->Text[i]))

Дальше можно не читать. При i == 0 будет вылет за пределы корректных индексов.

@Draka_za_edy · 17.12.2018, 00:49 **[ТС]**

а что посоветуйте сделать?

@volvo · 17.12.2018, 00:54

Переписать код полностью. На кой черт считать цифры и точки во введенных значениях? Чтобы проверить, введено вещественное число или нет? Оно прекрасно определяется в одну строку:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    double value_1;
    if(!TryStrToFloat(Edit1->Text, value_1))
    {
        ShowMessage("Введено некорректное значение в Edit1"); return;
    }
    // ну, и далее в том же духе, уже используя value_1, а не Edit1->Text ...
}

@Draka_za_edy · 17.12.2018, 01:03 **[ТС]**

попробую,но больше всего меня интересует эта строка,как быть с i==0?

C++
1
2
3
for (int i = 0, cifr = 0, kpoint = 0; i < (Edit1->Text.Length()); i++)
{
 if (isdigit(Edit1->Text[i]))

@volvo · 17.12.2018, 01:10

Эта строка не нужна при моем варианте решения. Но вообще-то надо писать вот так:

C++
1
2
3
4
for (int i = 1, cifr = 0, kpoint = 0; i <= Edit1->Text.Length(); i++)
{
    if (isdigit(Edit1->Text[i]))
    // ...

@Draka_za_edy · 17.12.2018, 01:51 **[ТС]**

Я кое-что поменял,и теперь работает как надо,но осталось одна проблема,почему-то когда в целой часте должен быть ноль,он не отображается.Что-то типа "-,123", когда должно отображаться "-0,123".

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//chart1->Series[0]->Points->Clear();                     //очистка chart
//chart1->Series[1]->Points->Clear();
//-------------------------------------------| лавушка для дурака,в Edit1
 
bool ist = false;
    if (Edit1->Text != "")                              //если textbox не пустой
    for (int i = 1, cifr = 0, kpoint = 0; i < (Edit1->Text.Length()); i++)
    {
   /*   if (isdigit(Edit1->Text[i]))                         //подсчёт количества цифр во введённом значение
cifr++;
    if (Edit1->Text[i] == '.')                           //подсчёт количества точек во введённом значение
kpoint++;*/
    if (((kpoint == 1) && (cifr == Edit1->Text.Length() - 1) || (cifr == Edit1->Text.Length()) || (cifr == Edit1->Text.Length() - 1)
     && (Edit1->Text[0] == '-') || (cifr == Edit1->Text.Length() - 2) && (kpoint == 1) && (Edit1->Text[0] == '-')) && (Edit1->Text[0] != '.') && (Edit1->Text[Edit1->Text.Length() - 1] != '.'))
ist = true;
    }
/*if (!ist)
{
ShowMessage("Введены не числа");  // Вывод сообщения об ошибке
return;
}  */
//---------------------------------------------| лавушка для дурака,в Edit2
ist = false;
    if (Edit2->Text != "")
    for (int i = 1, cifr = 0, kpoint = 0; i < (Edit2->Text.Length()); i++)
    {
    /*if (isdigit(Edit2->Text[i]))
cifr++;
    if (Edit2->Text[i] == '.')
kpoint++;*/
    if (((kpoint == 1) && (cifr == Edit2->Text.Length() - 1) || (cifr == Edit2->Text.Length()) || (cifr == Edit2->Text.Length() - 1)
    && (Edit2->Text[0] == '-') || (cifr == Edit2->Text.Length() - 2) && (kpoint == 1) && (Edit2->Text[0] == '-')) && (Edit2->Text[0] != '.') && (Edit2->Text[Edit2->Text.Length() - 1] != '.'))
ist = true;
    }
/*if (!ist) {
ShowMessage("Введены не числа");
return;
} */
//---------------------------------------------| лавушка для дурака,в Edit3
ist = false;
    if (Edit3->Text != "")
    for (int i = 1, cifr = 0, kpoint = 0; i < (Edit3->Text.Length()); i++)
    {
  /*    if (isdigit(Edit3->Text[i]))
cifr++; */
    if (cifr == Edit3->Text.Length())
ist = true;
    }
/*if (!ist)
    {
ShowMessage("Количество шагов должно быть натуральным числом");
return;
    } */
//---------------------------------------------------------
double a, b ;    //нижняя и верхняя границы
int n ;     //количество шагов разбиения
String A = Edit2->Text, B = Edit1->Text, N = Edit3->Text;
    b = StrToInt64(B);
    a = StrToInt64(A);
    n = StrToInt64(N);
    if (a >= b)//можно попробывать сделать просто a>b,чтобы был возможен вариант с нулем
    {
ShowMessage("Нижняя граница больше верхней");
return;
    }
n = StrToInt64(Edit3->Text);   //преобразование в значение типа int
    if (n <= 0)
    {
ShowMessage("Количество шагов разбиения должно быть больше 0");
return;
    }
//---------------------------------------------------------|ТУТ САМОЕ ИНТЕРЕСНОЕ
double h = (b - a) / n,   //считаем длину шагов
a2 = a;                   // приравниваем нижнею границу для выполнения второго метода
double sum1 = 0, sum2 = 0;
    if (RadioButton1->Checked)// ЕСЛИ НАЖАТЬ SIN(X)...
    {
    while (a < b) //пока нижняя граница меньше верхней
    {     // метод прямоугольников
sum1 += sin(a); //считаем сумму (y(0)+y(1)+..+y(n-1)
a += h;
    }
sum2 = sin(a2);               //метод трапеций y[0]
a2 += h;
while (a2 < b)
    {
sum2 += 2 * sin(a2); // подсчёт удвоенных знач(2y[2]+...+2y[n-1]
a2 += h;
    }
sum2 += sin(a2);        //y[n]
    }
//----------------------------------|.
if (RadioButton2->Checked)
    {
    while (a < b)
    {
sum1 += cos(a);
a += h;
    }
sum2 = cos(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * cos(a2);
a2 += h;
}
sum2 += cos(a2);
}
if (RadioButton3->Checked) {
while (a < b) {
sum1 += tan(a);
a += h;
}
sum2 = tan(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * tan(a2);
a2 += h;
}
sum2 += tan(a2);
}
if (RadioButton4->Checked) {
while (a < b) {
sum1 += 1 / tan(a);
a += h;
}
sum2 = 1 / tan(a2);
a2 += h;
while (a2 < b) {
sum2 += 2 * (1 / tan(a2));
a2 += h;
}
sum2 += 1 / tan(a2);
}
Edit4->Text = FormatFloat("#.###", h * sum1);
Edit5->Text = FormatFloat("#.###", h * sum2 / 2);
}

@volvo · 17.12.2018, 11:13

Значит, напиши вот так:

C++
136
137
Edit4->Text = FormatFloat("0.###", h * sum1);
Edit5->Text = FormatFloat("0.###", h * sum2 / 2);

@Draka_za_edy · 17.12.2018, 18:36 **[ТС]**

спасибо за все огромное

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,915 Записей в блоге: 12
	17.12.2018, 00:20
	Так и будем на слух лечить больного? Ну что ж... Очень похоже на попытку обратиться к нулевому индексу строки. Строки в Билдере - из Дельфи, так что индексируются в 1-цы, а не с 0... 0

@Draka_za_edy 3 / 2 / 3 Регистрация: 07.03.2018 Сообщений: 217
	17.12.2018, 00:49 [ТС]
	а что посоветуйте сделать? 0

@Draka_za_edy 3 / 2 / 3 Регистрация: 07.03.2018 Сообщений: 217
	17.12.2018, 18:36 [ТС]
	спасибо за все огромное 0

Ошибка при нажатии кнопки в программе

Решение