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

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

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

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

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

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

Решение