указатели

@Sasha · Регистрация: 05.06.2008

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

Здравствуйте!
Ребята подскажите по такому вопросу.
Создаю динамически отчёт в FastReporte и возникли проблемы с выполнением помоему, где-то идёт обращение к пустому указателю. Выкладываю код

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  frReport1->LoadFromFile("A4.frf");
  frReport1->Title = "Ïðèâåò";
  frReport1->Pages->Clear();
  frReport1->Pages->Add();
  TfrPage *Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   //ñîçäà¸ì ñòðàíèöó
  TfrBandView *Band = new TfrBandView();   // ñîçäà¸ì TitleBand
  Band->SetBounds(0,20,0,200);
  Band->BandType = btReportTitle;
  Page->Objects->Add(Band);
  int b = 0;
  TfrMemoView *Memo;
  for (int i=0;i<5;i++)
 {
  Memo = NULL;
  Memo = new TfrMemoView();// ñîçäà¸ì Memo
  Memo->Name = "Memo"+AnsiString(i);
  b+=20;
  Memo->SetBounds(20,b,76,22);
  Memo->BandAlign = baCenter;
  Memo->Alignment = frtaCenter;
  Memo->Prop["Font.Style"] = 2;
  Memo->Font->Size = 12;
  Memo->FillColor = clSilver;
  Memo->FrameColor = clBlack;
  Memo->FrameStyle = psSolid;
  Memo->FrameTyp = 15;
  Memo->FrameWidth = 3;
  Memo->Memo->Add("Çäàðîâà");
  Page->Objects->Add(Memo);
  delete Memo;
  Memo = NULL;
  }
  delete Page;
  Page = NULL;
  delete Band;
  Band = NULL;
 
  frReport1->PrepareReport();
  frReport1->ShowPreparedReport();
 
}
//---------------------------------------------------------------------------

Может в нём что-то не так. Помогите разобраться.

Вот скриншот ошибки

@Sasha · 17.01.2011, 17:40 **[ТС]**

Я заметил, что когда указатели не разыменовываешь, то этой ошибки нет.

@MikeSoft · 17.01.2011, 19:55

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

C++
1
TfrPage *Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1]; //создаём страницу

Вот это точно то, что вам нужно?
В комментарии написано: "создаём страницу" ... А где само создание? Вы просто выполняете присваивание указателю адреса определённой (уже созданной) страницы.

@Sasha · 18.01.2011, 14:41 **[ТС]**

Сделал

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  frReport1->LoadFromFile("A4.frf");
  frReport1->Title = "Ïðèâåò";
  frReport1->Pages->Clear();
  frReport1->Pages->Add();
  TfrPage *Page = new TfrPage(0,0,0,0,poPortrait);
  Page = frReport1->Pages->Pages[0];   //ñîçäà¸ì ñòðàíèöó
 
  TfrBandView *Band = new TfrBandView();   // ñîçäà¸ì TitleBand
  Band->SetBounds(0,20,0,200);
  Band->BandType = btReportTitle;
  Page->Objects->Add(Band);
 
  int b = 0;
  for (int i=0;i<5;i++)
 {
  TfrMemoView *Memo = new TfrMemoView();// ñîçäà¸ì Memo
  Memo->Name = "Memo"+AnsiString(i);
  b+=20;
  Memo->SetBounds(20,b,76,22);
  Memo->BandAlign = baCenter;
  Memo->Alignment = frtaCenter;
  Memo->Prop["Font.Style"] = 2;
  Memo->Font->Size = 12;
  Memo->FillColor = clSilver;
  Memo->FrameColor = clBlack;
  Memo->FrameStyle = psSolid;
  Memo->FrameTyp = 15;
  Memo->FrameWidth = 2;
  Memo->Memo->Add("Çäàðîâà");
  Page->Objects->Add(Memo);
  delete Memo;
  Memo = NULL;
  }
  delete Page;
  Page = NULL;
 
  frReport1->PrepareReport();
  frReport1->ShowPreparedReport();
}
Но ефекта никакого всё равно вылетает ошибка

cpp_developer · 18.01.2011, 16:36

а так :

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
// .H
private:
  TfrBandView *Band; // создаём TitleBand
  TfrMemoView *Memo; // создаём Memo
 
// .CPP
  Band = new TfrBandView(); // создаём TitleBand
...
  for (int i=0;i<5;i++)
 {
  Memo = new TfrMemoView(); // создаём Memo
  ...
  Page->Objects->Add(Memo);
//  delete Memo;
//  Memo = NULL;
  }
//  delete Page;
//  Page = NULL;
...
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete Memo;
  Memo = NULL;
  delete Page;
  Page = NULL;
}

@Sasha · 19.01.2011, 16:54 **[ТС]**

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

а так :

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
// .H
private:
  TfrBandView *Band; // создаём TitleBand
  TfrMemoView *Memo; // создаём Memo
 
// .CPP
  Band = new TfrBandView(); // создаём TitleBand
...
  for (int i=0;i<5;i++)
 {
  Memo = new TfrMemoView(); // создаём Memo
  ...
  Page->Objects->Add(Memo);
//  delete Memo;
//  Memo = NULL;
  }
//  delete Page;
//  Page = NULL;
...
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete Memo;
  Memo = NULL;
  delete Page;
  Page = NULL;
}

Неа всё равно вылазит эта ошибка.
Кстати указатели объявлены в разделе private они почему то видны в коде, хотя по правилам они не должны быть видны всему коду, а видны только разделу public. Или я чё-то путаю.

Добавлено через 17 часов 2 минуты
Вот я переделал чуток код

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  frReport1->LoadFromFile("A4.frf");
  frReport1->Title = "Ïðèâåò";
  frReport1->Pages->Clear();
  frReport1->Pages->Add();
  TfrPage *Page = NULL;   //ñîçäà¸ì ñòðàíèöó
  Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];
 
  TfrBandView *Band = new TfrBandView();   // ñîçäà¸ì TitleBand
  Band->SetBounds(0,20,0,200);
  Band->BandType = btReportTitle;
  Page->Objects->Add(Band);
 
  int b = 0;
  TfrMemoView *Memo = NULL;
  for (int i=0;i<5;i++)
 {
  Memo = new TfrMemoView();// ñîçäà¸ì Memo
  Memo->Name = "Memo"+AnsiString(i);
  b+=20;
  Memo->SetBounds(20,b,76,22);
  Memo->BandAlign = baCenter;
  Memo->Alignment = frtaCenter;
  Memo->Prop["Font.Style"] = 2;
  Memo->Font->Size = 8;
  Memo->FillColor = clSilver;
  Memo->FrameColor = clBlack;
  Memo->FrameStyle = psSolid;
  Memo->FrameTyp = 15;
  Memo->FrameWidth = 2;
  Memo->Memo->Add("Çäàðîâà");
  Page->Objects->Add(Memo);
  /*delete Memo;
  Memo = NULL;*/
 }
 
  if(frReport1->PrepareReport())
    {
     frReport1->ShowPreparedReport();
     /*delete Band;
     Band = NULL;
     delete Page;
     Page = NULL; */
    }

Так вот так вот при запуске ошибки нет, но стоит мне разыменовать хоть один указатель то выдаётся ошибка.

Как быть оставлять так как есть? Если я оставлю не разыменнованными указатели, то будет много кушать лишней памяти.

Прям не знаю чё и делать......

cpp_developer · 19.01.2011, 17:20

делайте после всего

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormClose(TObject *Sender)
{
  delete Memo;
  Memo = NULL;
  delete Band;
  Band = NULL;
  delete Page;
  Page = NULL;
}

@Sasha · 19.01.2011, 17:34 **[ТС]**

LK, Вы когда-нить работали с FastReportom? Если нет, то объясняю там запускается модальная форма самого отчёта и события такго как FormClose там и в помине нет. По этому я никак туда разыменовку не вставлю.

cpp_developer · 19.01.2011, 18:45

и эта модальная форма остается на десктопе навечно...

@ISergey · 19.01.2011, 18:52

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

Кстати указатели объявлены в разделе private они почему то видны в коде, хотя по правилам они не должны быть видны всему коду, а видны только разделу public. Или я чё-то путаю.

Они наследникам не видны...

@MikeSoft · 19.01.2011, 23:06

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

Если я оставлю не разыменнованными указатели, то будет много кушать лишней памяти.

Советую почитать что-то по работе с указателями.
То, что вы делаете - удаление объекта с помощью оператора delete, за которым идёт обнуление указателя. Но никак не разыменование.

Пример:

C++
1
2
3
4
5
6
7
int A = 5;
int *pA; // неинициализированный указатель
pA = &A; // присвоение указателю адреса реального объекта
*pA = 7; // разыменование указателя и задание значения
pA = new int [10]; // создание массива из 10 элементов типа int
delete []pA; // удаление, высвобождение памяти.
pA = NULL; // обнуление указателя

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	17.01.2011, 17:40 [ТС]
	Я заметил, что когда указатели не разыменовываешь, то этой ошибки нет. 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	19.01.2011, 17:34 [ТС]
	LK, Вы когда-нить работали с FastReportom? Если нет, то объясняю там запускается модальная форма самого отчёта и события такго как FormClose там и в помине нет. По этому я никак туда разыменовку не вставлю. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	19.01.2011, 18:45
	и эта модальная форма остается на десктопе навечно... 0