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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@volvo Супер-модератор 33379 / 21503 / 8236 Регистрация: 22.10.2011 Сообщений: 36,899 Записей в блоге: 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

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

Решение