Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/34: Рейтинг темы: голосов - 34, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 53

Access violation at address 004A9FE5 in module 'Project1.exe'. Read of address 0003FFFC

02.07.2018, 04:15. Показов 6797. Ответов 14
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте, помогите устранить ошибку, Access violation at address 004A9FE5 in module 'Project1.exe'. Read of address 0003FFFC.

Вот код программы:

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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <fstream.h>
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
void Human :: Viev()
{
  Form2->flag = 0;
  Student stud;
  Subject sbj;
  int i = 0, n = 1;
  Form2->StringGrid1->Cells[0][i] = "Прізвище";
  Form2->StringGrid1->Cells[1][i] = "Ім'я";
  Form2->StringGrid1->Cells[2][i] = "По батькові";
  Form2->StringGrid1->Cells[3][i] = "Група №";
  Form2->StringGrid1->Cells[4][i] = "Іноземна мова";
  Form2->StringGrid1->Cells[5][i] = "Історія України";
  Form2->StringGrid1->Cells[6][i] = "Фізичне виховання";
  Form2->StringGrid1->Cells[7][i] = "Фізика";
  Form2->StringGrid1->Cells[8][i] = "Лінійна алгебра";
  Form2->StringGrid1->Cells[9][i] = "Дискретна математика";
  Form2->StringGrid1->Cells[10][i] = "Операційні системи";
  Form2->StringGrid1->Cells[11][i] = "Архітектура комп'ютера";
  Form2->StringGrid1->Cells[12][i] = "Основи програмної інженерії";
  Form2->StringGrid1->Cells[13][i] = "Основи програмування";
  Form2->StringGrid1->Cells[14][i] = "Групова динаміка";
  Form2->StringGrid1->Cells[15][i] = "середній бал";
  ifstream fileanketa("anketa.txt");
  while (!fileanketa.eof())
    {
      fileanketa >> stud.surname >> stud.name >> stud.lastname >> stud.group >> sbj.subject1 >> sbj.subject2
                    >> sbj.subject3 >> sbj.subject4 >> sbj.subject5 >> sbj.subject6 >> sbj.subject7 >> sbj.subject8
                        >> sbj.subject9 >> sbj.subject10 >> sbj.subject11 >> stud.sbal;
        {
          i++; n++;
          Form2->StringGrid1->Cells[0][i] = stud.surname;
          Form2->StringGrid1->Cells[1][i] = stud.name;
          Form2->StringGrid1->Cells[2][i] = stud.lastname;
          Form2->StringGrid1->Cells[3][i] = stud.group;
          Form2->StringGrid1->Cells[4][i] = sbj.subject1;
          Form2->StringGrid1->Cells[5][i] = sbj.subject2;
          Form2->StringGrid1->Cells[6][i] = sbj.subject3;
          Form2->StringGrid1->Cells[7][i] = sbj.subject4;
          Form2->StringGrid1->Cells[8][i] = sbj.subject5;
          Form2->StringGrid1->Cells[9][i] = sbj.subject6;
          Form2->StringGrid1->Cells[10][i] = sbj.subject7;
          Form2->StringGrid1->Cells[11][i] = sbj.subject8;
          Form2->StringGrid1->Cells[12][i] = sbj.subject9;
          Form2->StringGrid1->Cells[13][i] = sbj.subject10;
          Form2->StringGrid1->Cells[14][i] = sbj.subject11;
          Form2->StringGrid1->Cells[15][i] = stud.sbal;
          Form2->StringGrid1->RowCount = n;
        }
    }
  fileanketa.close();
  if (Form2->StringGrid1->RowCount != 1)
    Form2->StringGrid1->FixedRows = 1;
}
//---------------------------------------------------------------------------
void Human :: Search_student()
{
  Student stud;
  Subject sbj;
  int i = 0, n = 1;
  Form2->StringGrid1->Cells[0][i] = "Прізвище";
  Form2->StringGrid1->Cells[1][i] = "Ім'я";
  Form2->StringGrid1->Cells[2][i] = "По батькові";
  Form2->StringGrid1->Cells[3][i] = "Група №";
  Form2->StringGrid1->Cells[4][i] = "Іноземна мова";
  Form2->StringGrid1->Cells[5][i] = "Історія України";
  Form2->StringGrid1->Cells[6][i] = "Фізичне виховання";
  Form2->StringGrid1->Cells[7][i] = "Фізика";
  Form2->StringGrid1->Cells[8][i] = "Лінійна алгебра";
  Form2->StringGrid1->Cells[9][i] = "Дискретна математика";
  Form2->StringGrid1->Cells[10][i] = "Операційні системи";
  Form2->StringGrid1->Cells[11][i] = "Архітектура комп'ютера";
  Form2->StringGrid1->Cells[12][i] = "Основи програмної інженерії";
  Form2->StringGrid1->Cells[13][i] = "Основи програмування";
  Form2->StringGrid1->Cells[14][i] = "Групова динаміка";
  Form2->StringGrid1->Cells[15][i] = "середній бал";
  ifstream fileanketa("anketa.txt");
  char temp [60];
  while (!fileanketa.eof())
    {
      fileanketa >> stud.surname >> stud.name >> stud.lastname >> stud.group >> sbj.subject1 >> sbj.subject2
                   >> sbj.subject3 >> sbj.subject4 >> sbj.subject5 >> sbj.subject6 >> sbj.subject7 >> sbj.subject8
                     >> sbj.subject9 >> sbj.subject10 >> sbj.subject11 >> stud.sbal;
      strcpy(temp, stud.surname);
      strcat(temp, " ");
      strcat(temp, stud.name);
      strcat(temp, " ");
      strcat(temp, stud.lastname);
      if (strcmp(temp, Form2->sEdit2->Text.t_str()) == 0)
        {
          i++; n++;
          Form2->StringGrid1->Cells[0][i] = stud.surname;
          Form2->StringGrid1->Cells[1][i] = stud.name;
          Form2->StringGrid1->Cells[2][i] = stud.lastname;
          Form2->StringGrid1->Cells[3][i] = stud.group;
          Form2->StringGrid1->Cells[4][i] = sbj.subject1;
          Form2->StringGrid1->Cells[5][i] = sbj.subject2;
          Form2->StringGrid1->Cells[6][i] = sbj.subject3;
          Form2->StringGrid1->Cells[7][i] = sbj.subject4;
          Form2->StringGrid1->Cells[8][i] = sbj.subject5;
          Form2->StringGrid1->Cells[9][i] = sbj.subject6;
          Form2->StringGrid1->Cells[10][i] = sbj.subject7;
          Form2->StringGrid1->Cells[11][i] = sbj.subject8;
          Form2->StringGrid1->Cells[12][i] = sbj.subject9;
          Form2->StringGrid1->Cells[13][i] = sbj.subject10;
          Form2->StringGrid1->Cells[14][i] = sbj.subject11;
          Form2->StringGrid1->Cells[15][i] = stud.sbal;
          Form2->StringGrid1->RowCount = n;
        }
    }
  fileanketa.close();
  if(Form2->sEdit2->Text == "")
    {
      Human human;
      human.Viev();
      Form2->flag = 1;
    }
  else
    if (strcmp(temp, Form2->sEdit2->Text.t_str()) != 0)
      {
        i++; n++;
        Form2->StringGrid1->Cells[0][i] = "";
        Form2->StringGrid1->Cells[1][i] = "";
        Form2->StringGrid1->Cells[2][i] = "";
        Form2->StringGrid1->Cells[3][i] = "";
        Form2->StringGrid1->Cells[4][i] = "";
        Form2->StringGrid1->Cells[5][i] = "";
        Form2->StringGrid1->Cells[6][i] = "";
        Form2->StringGrid1->Cells[7][i] = "";
        Form2->StringGrid1->Cells[8][i] = "";
        Form2->StringGrid1->Cells[9][i] = "";
        Form2->StringGrid1->Cells[10][i] = "";
        Form2->StringGrid1->Cells[11][i] = "";
        Form2->StringGrid1->Cells[12][i] = "";
        Form2->StringGrid1->Cells[13][i] = "";
        Form2->StringGrid1->Cells[14][i] = "";
        Form2->StringGrid1->Cells[15][i] = "";
        Form2->StringGrid1->RowCount = n;
      }
  if (Form2->StringGrid1->RowCount != 1)
    Form2->StringGrid1->FixedRows = 1;
}
//---------------------------------------------------------------------------
void Student :: Search_group()
{
  Student stud;
  Subject sbj;
  int i = 0, n = 1;
  Form2->StringGrid1->Cells[0][i] = "Прізвище";
  Form2->StringGrid1->Cells[1][i] = "Ім'я";
  Form2->StringGrid1->Cells[2][i] = "По батькові";
  Form2->StringGrid1->Cells[3][i] = "Група №";
  Form2->StringGrid1->Cells[4][i] = "Іноземна мова";
  Form2->StringGrid1->Cells[5][i] = "Історія України";
  Form2->StringGrid1->Cells[6][i] = "Фізичне виховання";
  Form2->StringGrid1->Cells[7][i] = "Фізика";
  Form2->StringGrid1->Cells[8][i] = "Лінійна алгебра";
  Form2->StringGrid1->Cells[9][i] = "Дискретна математика";
  Form2->StringGrid1->Cells[10][i] = "Операційні системи";
  Form2->StringGrid1->Cells[11][i] = "Архітектура комп'ютера";
  Form2->StringGrid1->Cells[12][i] = "Основи програмної інженерії";
  Form2->StringGrid1->Cells[13][i] = "Основи програмування";
  Form2->StringGrid1->Cells[14][i] = "Групова динаміка";
  Form2->StringGrid1->Cells[15][i] = "середній бал";
  ifstream fileanketa("anketa.txt");
  char *gruppa = new char[100];
  while (!fileanketa.eof())
    {
      fileanketa >> stud.surname >> stud.name >> stud.lastname >> gruppa >> sbj.subject1 >> sbj.subject2
                   >> sbj.subject3 >> sbj.subject4 >> sbj.subject5 >> sbj.subject6 >> sbj.subject7 >> sbj.subject8
                            >> sbj.subject9 >> sbj.subject10 >> sbj.subject11 >> stud.sbal;
      if (strcmp(gruppa, Form2->sEdit2->Text.t_str()) == 0)
        {
          i++; n++;
          Form2->StringGrid1->Cells[0][i] = stud.surname;
          Form2->StringGrid1->Cells[1][i] = stud.name;
          Form2->StringGrid1->Cells[2][i] = stud.lastname;
          Form2->StringGrid1->Cells[3][i] = gruppa;
          Form2->StringGrid1->Cells[4][i] = sbj.subject1;
          Form2->StringGrid1->Cells[5][i] = sbj.subject2;
          Form2->StringGrid1->Cells[6][i] = sbj.subject3;
          Form2->StringGrid1->Cells[7][i] = sbj.subject4;
          Form2->StringGrid1->Cells[8][i] = sbj.subject5;
          Form2->StringGrid1->Cells[9][i] = sbj.subject6;
          Form2->StringGrid1->Cells[10][i] = sbj.subject7;
          Form2->StringGrid1->Cells[11][i] = sbj.subject8;
          Form2->StringGrid1->Cells[12][i] = sbj.subject9;
          Form2->StringGrid1->Cells[13][i] = sbj.subject10;
          Form2->StringGrid1->Cells[14][i] = sbj.subject11;
          Form2->StringGrid1->Cells[15][i] = stud.sbal;
          Form2->StringGrid1->RowCount = n;
        }
    }
  fileanketa.close();
  if(Form2->sEdit2->Text == "")
    {
      Human human;
      human.Viev();
      Form2->flag = 2;
    }
  else
    if (strcmp(gruppa, Form2->sEdit2->Text.t_str()) != 0)
      {
        i++; n++;
        Form2->StringGrid1->Cells[0][i] = "";
        Form2->StringGrid1->Cells[1][i] = "";
        Form2->StringGrid1->Cells[2][i] = "";
        Form2->StringGrid1->Cells[3][i] = "";
        Form2->StringGrid1->Cells[4][i] = "";
        Form2->StringGrid1->Cells[5][i] = "";
        Form2->StringGrid1->Cells[6][i] = "";
        Form2->StringGrid1->Cells[7][i] = "";
        Form2->StringGrid1->Cells[8][i] = "";
        Form2->StringGrid1->Cells[9][i] = "";
        Form2->StringGrid1->Cells[10][i] = "";
        Form2->StringGrid1->Cells[11][i] = "";
        Form2->StringGrid1->Cells[12][i] = "";
        Form2->StringGrid1->Cells[13][i] = "";
        Form2->StringGrid1->Cells[14][i] = "";
        Form2->StringGrid1->Cells[15][i] = "";
        Form2->StringGrid1->RowCount = n;
      }
  if (Form2->StringGrid1->RowCount != 1)
    Form2->StringGrid1->FixedRows = 1;
}
//---------------------------------------------------------------------------
void Human :: Sort()
{
  Student stud; Student sort[100];
  Subject sbj; Subject srt[100];
  int i = 0,n = 1;
  Form2->StringGrid1->Cells[0][i] = "Прізвище";
  Form2->StringGrid1->Cells[1][i] = "Ім'я";
  Form2->StringGrid1->Cells[2][i] = "По батькові";
  Form2->StringGrid1->Cells[3][i] = "Група №";
  Form2->StringGrid1->Cells[4][i] = "Іноземна мова";
  Form2->StringGrid1->Cells[5][i] = "Історія України";
  Form2->StringGrid1->Cells[6][i] = "Фізичне виховання";
  Form2->StringGrid1->Cells[7][i] = "Фізика";
  Form2->StringGrid1->Cells[8][i] = "Лінійна алгебра";
  Form2->StringGrid1->Cells[9][i] = "Дискретна математика";
  Form2->StringGrid1->Cells[10][i] = "Операційні системи";
  Form2->StringGrid1->Cells[11][i] = "Архітектура комп'ютера";
  Form2->StringGrid1->Cells[12][i] = "Основи програмної інженерії";
  Form2->StringGrid1->Cells[13][i] = "Основи програмування";
  Form2->StringGrid1->Cells[14][i] = "Групова динаміка";
  Form2->StringGrid1->Cells[15][i] = "середній бал";
  ifstream fileanketa("anketa.txt");
  while (!fileanketa.eof())
    {
      fileanketa >> stud.surname >> stud.name >> stud.lastname >> stud.group >> sbj.subject1 >> sbj.subject2
                   >> sbj.subject3 >> sbj.subject4 >> sbj.subject5 >> sbj.subject6 >> sbj.subject7 >> sbj.subject8
                      >> sbj.subject9 >> sbj.subject10 >> sbj.subject11 >> stud.sbal;
      if(strcmp(stud.surname, "") == 0);
      else
        {
          strcpy(sort[i].surname, stud.surname);
          strcpy(sort[i].name, stud.name);
          strcpy(sort[i].lastname, stud.lastname);
          sort[i].group = StrToInt(stud.group);
          srt[i].subject1 = StrToInt(sbj.subject1);
          srt[i].subject2 = StrToInt(sbj.subject2);
          srt[i].subject3 = StrToInt(sbj.subject3);
          srt[i].subject4 = StrToInt(sbj.subject4);
          srt[i].subject5 = StrToInt(sbj.subject5);
          srt[i].subject6 = StrToInt(sbj.subject6);
          srt[i].subject7 = StrToInt(sbj.subject7);
          srt[i].subject8 = StrToInt(sbj.subject8);
          srt[i].subject9 = StrToInt(sbj.subject9);
          srt[i].subject10 = StrToInt(sbj.subject10);
          srt[i].subject11 = StrToInt(sbj.subject11);
          sort[i].sbal = StrToFloat(stud.sbal);
          i++;
        }
    }
  fileanketa.close();
  Student x;
  Subject y;
  int j;
  int N = i;
  for(i = 0; i < N-1; i++)
    for(j = 0; j < N-i-1; j++)
      if(strcmp(sort[j].surname, sort[j+1].surname) > 0)
        {
          x = sort[j+1];
          sort[j+1] = sort[j];
          sort[j] = x;
          y = srt[j+1];
          srt[j+1] = srt[j];
          srt[j] = y;
        }
  int k = 0;
  for(i = 0; i < N; i++)
    {
      k++; n++;
      Form2->StringGrid1->Cells[0][k] = sort[i].surname;
      Form2->StringGrid1->Cells[1][k] = sort[i].name;
      Form2->StringGrid1->Cells[2][k] = sort[i].lastname;
      Form2->StringGrid1->Cells[3][k] = sort[i].group;
      Form2->StringGrid1->Cells[4][k] = srt[i].subject1;
      Form2->StringGrid1->Cells[5][k] = srt[i].subject2;
      Form2->StringGrid1->Cells[6][k] = srt[i].subject3;
      Form2->StringGrid1->Cells[7][k] = srt[i].subject4;
      Form2->StringGrid1->Cells[8][k] = srt[i].subject5;
      Form2->StringGrid1->Cells[9][k] = srt[i].subject6;
      Form2->StringGrid1->Cells[10][k] = srt[i].subject7;
      Form2->StringGrid1->Cells[11][k] = srt[i].subject8;
      Form2->StringGrid1->Cells[12][k] = srt[i].subject9;
      Form2->StringGrid1->Cells[13][k] = srt[i].subject10;
      Form2->StringGrid1->Cells[14][k] = srt[i].subject11;
      Form2->StringGrid1->Cells[15][k] = sort[i].sbal;
      Form2->StringGrid1->RowCount = n;
    }
  if(Form2->StringGrid1->RowCount != 1)
    Form2->StringGrid1->FixedRows = 1;
}
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Komponent(TObject *Sender)
{
  Form4->sLabel1->Visible = true;
  Form4->sLabel2->Visible = true;
  Form4->sLabel3->Visible = true;
  Form4->sEdit1->Visible = true;
  Form4->sEdit2->Visible = true;
  Form4->sEdit3->Visible = true;
  Form4->sButton1->Visible = true;
  Form4->Height = 189;
  Form4->Width = 406;
  Form4->sLabel4->Visible = false;
  Form4->sLabel5->Visible = false;
  Form4->sLabel6->Visible = false;
  Form4->sLabel7->Visible = false;
  Form4->sLabel8->Visible = false;
  Form4->sLabel9->Visible = false;
  Form4->sLabel10->Visible = false;
  Form4->sLabel11->Visible = false;
  Form4->sLabel12->Visible = false;
  Form4->sLabel13->Visible = false;
  Form4->sLabel14->Visible = false;
  Form4->sLabel15->Visible = false;
  Form4->sLabel16->Visible = false;
  Form4->sLabel17->Visible = false;
  Form4->sLabel18->Visible = false;
  Form4->sLabel19->Visible = false;
  Form4->sEdit4->Visible = false;
  Form4->sEdit5->Visible = false;
  Form4->sEdit6->Visible = false;
  Form4->sEdit7->Visible = false;
  Form4->sEdit8->Visible = false;
  Form4->sEdit9->Visible = false;
  Form4->sEdit10->Visible = false;
  Form4->sEdit11->Visible = false;
  Form4->sEdit12->Visible = false;
  Form4->sEdit13->Visible = false;
  Form4->sEdit14->Visible = false;
  Form4->sEdit15->Visible = false;
  Form4->sEdit16->Visible = false;
  Form4->sEdit17->Visible = false;
  Form4->sEdit18->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N12Click(TObject *Sender)
{
  sPanel1->Visible = true;
  sButton1->Visible = true;
  sLabel1->Caption = "Студент:";
  flag = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N13Click(TObject *Sender)
{
  sPanel1->Visible = true;
  sButton1->Visible = true;
  sLabel1->Caption = "№ групи:";
  flag = 2;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N1Click(TObject *Sender)
{
  Form3->Show();
  Form2->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N2Click(TObject *Sender)
{
  Komponent(Sender);
  Form4->Show();
  Form2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N3Click(TObject *Sender)
{
  Form5->Show();
  Form2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N5Click(TObject *Sender)
{
  Form2->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N7Click(TObject *Sender)
{
  Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::sEdit2Change(TObject *Sender)
{
  if (flag == 1)
    {
      Human human;
      human.Search_student();
    }
  if (flag == 2)
    {
      Student student;
      student.Search_group();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::D1Click(TObject *Sender)
{
  Human human;
  human.Sort(); 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  Human human;
  human.Viev(); 
}
//---------------------------------------------------------------------------
Добавлено через 30 минут
Комментировал функции, то если за комментировать функцию Viev(), то проект запускается без ошибок. Значит проблема в функции Viev(), ребят, гляньте что с ней не так..
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 02.07.2018, 04:15
Ответы с готовыми решениями:

Access violation at address 00404083 in module 'Projectl.exe'. Read of address 00000000.
Кинул на форму PasswordDlg, в главной форме вверху вписал #include &quot;PassWord.h&quot; и на формкриэйт главной формы вписал...

Access violation at address 32ABE860 in module cc32100mt.dll. read of address f8338338
кто знает эту ошибку. При сохранении stringgrid в файл выдается критическая ошибка Access volidation at address 32ABE860 in module...

Access violation at address 501F084A in module vcl120.bpl. Read of address 00000374
Привет всем! Который день не могу продолжить работу с программой из-за такой ошибки: 'Access violation at address 501F084A in module...

14
 Аватар для Kuzia domovenok
4268 / 3327 / 926
Регистрация: 25.03.2012
Сообщений: 12,531
Записей в блоге: 1
02.07.2018, 05:27
Да мало ли что может быть не так?
- В char temp [60]; больше 60 букв копируется
- в файле fileanketa какая-нибудь хрень, не подходящая под формат ввода
- вообще странная смесь Си и С++ со всеми этими strcpy strcat даже без проверок размера буфера.
- как вариант, счётчик этого твоего массива на 1, а то и вообще на 2 больше чем нужно, потому что инициализируется как
int i = 0, n = 1; а затем увеличивает i++ n++ до шага цикла, то есть счёт идёт Cells[0][2] Cells[0][3] Cells[0][4] и.т.д.
(Массивы, они если что с нуля нумеруются)
0
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 53
02.07.2018, 05:31  [ТС]
Меня вот одно только волнует, вот вчера запускал, всё без ошибок было, код не трогал, запустил сегодня - ошибка.
0
 Аватар для Kuzia domovenok
4268 / 3327 / 926
Регистрация: 25.03.2012
Сообщений: 12,531
Записей в блоге: 1
02.07.2018, 05:36
Uucyc, тебя не это должно волновать
0
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 53
02.07.2018, 06:28  [ТС]
Убрал из класса эту функцию, прицепил её к кнопке, удивительно - всё работает без ошибок. Что не так с функцией, не пойму...

Добавлено через 47 минут
В функции Viev(), что-то не так с циклом while. Помогите..!
0
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
02.07.2018, 09:24
А что может быть "не так" с функцией..., - по кнопке же она работает. Скорее не так с её вызовом. Метод FormCreate по моим ощущениям - довольно мутная штука; то-ли создан уже компонент, то-ли "в процессе" - не гарантий. Ваша функция из файла пытается значения в таблицу запихнуть, а процесс создания таблицы - к примеру - еще не завершен... . Я в сомнительных случаях пользуюсь FormShow вместо FormCreate, - там по крайней мере все компоненты формы наверняка созданы.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33372 / 21498 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
02.07.2018, 09:29
Отладчик в помощь. Пошагово проходи по тому методу, и лови место ошибки. Ну, а там уже будет понятно, как ее исправлять.

Цитата Сообщение от nick42 Посмотреть сообщение
Метод FormCreate по моим ощущениям - довольно мутная штука; то-ли создан уже компонент, то-ли "в процессе" - не гарантий
Есть гарантии. В момент вызова OnCreate формы все компоненты уже инициализированы.
1
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
02.07.2018, 10:07
volvo, а как вы тогда объясните поведение, что "вчера запускал", а сегодня - "ошибка"? И по кнопке работает как часы? Если текстовый файл корректный и в коде программы никаких изменений не делали, и если автор программы нас намеренно не вводит в заблуждение ( )... Получается, что ТС не всё достоверно изложил.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33372 / 21498 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 12
02.07.2018, 10:09
Я объяснять нечего не собираюсь. Пока у меня нет полностью проекта и всех сопутствующих файлов, необходимых для его компиляции и запуска. Да, и к тому же - версия Билдера не озвучена.

За объяснениями, "почему так" при полученных вводных - на форум телепатов надо обращаться.
0
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
02.07.2018, 10:17
Ну да. И если проект после вашей компиляции на своей машине будет работать без сбоев, а у ТС по прежнему через раз...? Объяснять всё-таки надо; хотя бы для самоуспокоения.
0
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 53
03.07.2018, 12:07  [ТС]
Проблему решил самостоятельно, но не так как хотелось бы мне. Решил таким образом, вместо того чтобы загружать информацию в объекты классов, загружал всю информацию в обычные переменные типа char.

вот код:

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

void Human :: Viev()
{
  Form2->flag = 0;
  int i = 0, n = 1;
  ifstream fileanketa("anketa.txt");
  char *surname = new char[100];
  char *name = new char[100];
  char *lastname = new char[100];
  char *group = new char[100];
  char *subject1 = new char[100];
  char *subject2 = new char[100];
  char *subject3 = new char[100];
  char *subject4 = new char[100];
  char *subject5 = new char[100];
  char *subject6 = new char[100];
  char *subject7 = new char[100];
  char *subject8 = new char[100];
  char *subject9 = new char[100];
  char *subject10 = new char[100];
  char *subject11 = new char[100];
  char *sbal = new char[100];
   while (!fileanketa.eof())
    {
      fileanketa >> surname >> name >> lastname >> group >> subject1 >> subject2
                   >> subject3 >> subject4 >> subject5 >> subject6 >> subject7 >> subject8
                     >> subject9 >> subject10 >> subject11 >> sbal;
        {
          i++; n++;
          Form2->StringGrid1->Cells[0][i] = surname;
          Form2->StringGrid1->Cells[1][i] = name;
          Form2->StringGrid1->Cells[2][i] = lastname;
          Form2->StringGrid1->Cells[3][i] = group;
          Form2->StringGrid1->Cells[4][i] = subject1;
          Form2->StringGrid1->Cells[5][i] = subject2;
          Form2->StringGrid1->Cells[6][i] = subject3;
          Form2->StringGrid1->Cells[7][i] = subject4;
          Form2->StringGrid1->Cells[8][i] = subject5;
          Form2->StringGrid1->Cells[9][i] = subject6;
          Form2->StringGrid1->Cells[10][i] = subject7;
          Form2->StringGrid1->Cells[11][i] = subject8;
          Form2->StringGrid1->Cells[12][i] = subject9;
          Form2->StringGrid1->Cells[13][i] = subject10;
          Form2->StringGrid1->Cells[14][i] = subject11;
          Form2->StringGrid1->Cells[15][i] = sbal;
          Form2->StringGrid1->RowCount = n;
        }
    }
  fileanketa.close();
  if (Form2->StringGrid1->RowCount != 1)
    Form2->StringGrid1->FixedRows = 1;
}
Вот почему так же, только с использованием объектов классов не получилось, я не знаю. Не плохо было бы если бы кто объяснил. Embarcadero Rad Studio 2010
0
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
03.07.2018, 12:29
Цитата Сообщение от Uucyc Посмотреть сообщение
почему так же, только с использованием объектов классов не получилось
А действительно не получилось?
Вот если бы ваша ошибка железно воспроизводилась, тогда был бы смысл разбираться и выяснять. А если она "по чётным" ошибка, а "по нечётным" всё работает, то как это может быть связано с "... использованием объектов классов"?
Впрочем, может это только моему разумению не доступно... .
0
 Аватар для Meoww
8 / 8 / 2
Регистрация: 02.10.2014
Сообщений: 112
12.07.2018, 22:06
Странно почему никто не увидел - обращение к компонентам VCL при создании формы - русская рулетка. Перенесите ваш вью в OnSHow и проблем не будет.
Если конечно интересно - может пригодится.

Добавлено через 9 минут
Ага, прошу прощения, таки было предположение. Уважаемый volvo - лично на своей шкуре сталкивался с проблемой, когда при создании формы вываливается ошибка доступа, связанная с не иннициализацией компонентов. Причем, потом воспроизводил подобное на пустом проекте. Так что понятия - должны быть, и тем более - гарантированно (гусударство дает гарантии) не всегда уместны) Вы же не знаете, может у него компоненты какие установлены самопальные, которые могут нарушать логику иннициализации - Alpha controls, или еще чего, что перерисовывает штатные WInAPI стили.
0
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 53
14.07.2018, 13:24  [ТС]
Meoww, По поводу того, что я устанавливал компоненты - вы правы (Alpha Controls), но перенос функции Viev() в OnShow() - не то, ошибка осталась та же.
0
 Аватар для Meoww
8 / 8 / 2
Регистрация: 02.10.2014
Сообщений: 112
14.07.2018, 15:51
Хм, ну что еще видно, не сразу обратил внимания - у вас просто выход за границы массива возможен. В связи с мешаниной VCL и чистого Cи. Вот тут
C++
1

new char[100];
вы заведомо расширяете массив. Может чего намудрено с кодировкой, и где то дописывается лишний символ, при сохранении или загрузке. Это конечно пальцем в небо, но может быть.

Добавлено через 3 минуты
Вы уж коль используете char* то завели бы структурку да и сохраняли/загружали ее, все проще и удобнее
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 14.07.2018, 15:51
Помогаю со студенческими работами здесь

Ошибка Access violation at address XXXXXXX in module 'vcl240.bpl'. Read of address XXXXXX
Доброго времени суток. Проблема следующая: при определенной последовательности действий в приложении вылетает ошибка, работа приложения...

Access Violation at address in module read of address
Программа выдают ошибку, не могу устранить. На моем компьютере работает корректно, на чужих нет. Отменил галочку в...

Access violation at address in module. Read of address
Помогите пожалуйста разобраться с ошибкой #include &lt;vcl.h&gt; #include &lt;time.h&gt; #include &lt;stdlib.h&gt; #pragma hdrstop ...

Ошибка access violation at address in module borlndmm.dll write of address
Всем здравствуйте. Не могу побороть ошибку &quot;access violation at address in module borlndmm.dll write of address &quot;. Попробую объяснить....

При запуске уже скомпелированной программы ошибка: "Access violation at address in module. Write of address."
Здравствуйте, написал программу для расчета по готовым формулам с использованием динамических массивов. В билдере всё компилируется и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
YAFU@home — распределённые вычисления для математики. На CPU
Programma_Boinc 20.01.2026
YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru