С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Uucyc
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 52
1

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

02.07.2018, 04:15. Просмотров 367. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
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 violation at address 501F084A in module vcl120.bpl. Read of address 00000374
Привет всем! Который день не могу продолжить работу с программой из-за такой...

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

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

14
Kuzia domovenok
2421 / 2151 / 525
Регистрация: 25.03.2012
Сообщений: 7,756
Записей в блоге: 1
02.07.2018, 05:27 2
Да мало ли что может быть не так?
- В 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
Uucyc
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 52
02.07.2018, 05:31  [ТС] 3
Меня вот одно только волнует, вот вчера запускал, всё без ошибок было, код не трогал, запустил сегодня - ошибка.
0
Kuzia domovenok
2421 / 2151 / 525
Регистрация: 25.03.2012
Сообщений: 7,756
Записей в блоге: 1
02.07.2018, 05:36 4
Uucyc, тебя не это должно волновать
0
Uucyc
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 52
02.07.2018, 06:28  [ТС] 5
Убрал из класса эту функцию, прицепил её к кнопке, удивительно - всё работает без ошибок. Что не так с функцией, не пойму...

Добавлено через 47 минут
В функции Viev(), что-то не так с циклом while. Помогите..!
0
nick42
Практикантроп
4347 / 2351 / 415
Регистрация: 23.09.2011
Сообщений: 5,007
02.07.2018, 09:24 6
А что может быть "не так" с функцией..., - по кнопке же она работает. Скорее не так с её вызовом. Метод FormCreate по моим ощущениям - довольно мутная штука; то-ли создан уже компонент, то-ли "в процессе" - не гарантий. Ваша функция из файла пытается значения в таблицу запихнуть, а процесс создания таблицы - к примеру - еще не завершен... . Я в сомнительных случаях пользуюсь FormShow вместо FormCreate, - там по крайней мере все компоненты формы наверняка созданы.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26520 / 17809 / 7048
Регистрация: 22.10.2011
Сообщений: 31,346
Записей в блоге: 6
02.07.2018, 09:29 7
Отладчик в помощь. Пошагово проходи по тому методу, и лови место ошибки. Ну, а там уже будет понятно, как ее исправлять.

Цитата Сообщение от nick42 Посмотреть сообщение
Метод FormCreate по моим ощущениям - довольно мутная штука; то-ли создан уже компонент, то-ли "в процессе" - не гарантий
Есть гарантии. В момент вызова OnCreate формы все компоненты уже инициализированы.
1
nick42
Практикантроп
4347 / 2351 / 415
Регистрация: 23.09.2011
Сообщений: 5,007
02.07.2018, 10:07 8
volvo, а как вы тогда объясните поведение, что "вчера запускал", а сегодня - "ошибка"? И по кнопке работает как часы? Если текстовый файл корректный и в коде программы никаких изменений не делали, и если автор программы нас намеренно не вводит в заблуждение ( )... Получается, что ТС не всё достоверно изложил.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26520 / 17809 / 7048
Регистрация: 22.10.2011
Сообщений: 31,346
Записей в блоге: 6
02.07.2018, 10:09 9
Я объяснять нечего не собираюсь. Пока у меня нет полностью проекта и всех сопутствующих файлов, необходимых для его компиляции и запуска. Да, и к тому же - версия Билдера не озвучена.

За объяснениями, "почему так" при полученных вводных - на форум телепатов надо обращаться.
0
nick42
Практикантроп
4347 / 2351 / 415
Регистрация: 23.09.2011
Сообщений: 5,007
02.07.2018, 10:17 10
Ну да. И если проект после вашей компиляции на своей машине будет работать без сбоев, а у ТС по прежнему через раз...? Объяснять всё-таки надо; хотя бы для самоуспокоения.
0
Uucyc
0 / 0 / 0
Регистрация: 07.11.2017
Сообщений: 52
03.07.2018, 12:07  [ТС] 11
Проблему решил самостоятельно, но не так как хотелось бы мне. Решил таким образом, вместо того чтобы загружать информацию в объекты классов, загружал всю информацию в обычные переменные типа 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
Практикантроп
4347 / 2351 / 415
Регистрация: 23.09.2011
Сообщений: 5,007
03.07.2018, 12:29 12
Цитата Сообщение от Uucyc Посмотреть сообщение
почему так же, только с использованием объектов классов не получилось
А действительно не получилось?
Вот если бы ваша ошибка железно воспроизводилась, тогда был бы смысл разбираться и выяснять. А если она "по чётным" ошибка, а "по нечётным" всё работает, то как это может быть связано с "... использованием объектов классов"?
Впрочем, может это только моему разумению не доступно... .
0
Meoww
5 / 5 / 2
Регистрация: 02.10.2014
Сообщений: 73
12.07.2018, 22:06 13
Странно почему никто не увидел - обращение к компонентам VCL при создании формы - русская рулетка. Перенесите ваш вью в OnSHow и проблем не будет.
Если конечно интересно - может пригодится.

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

Добавлено через 3 минуты
Вы уж коль используете char* то завели бы структурку да и сохраняли/загружали ее, все проще и удобнее
0
14.07.2018, 15:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.07.2018, 15:51

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

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

Ошибка при динамической привязке dll библиотеки Access violation at address 00000000. Read of address 00000000
Добрый день В моем коде я динамически привязал библиотеку dll к приложению....


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

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru