Общие вопросы программирования в C++Builder

[Sasha]

Здравствуйте!
Ребята помогите разобрать ся с вопросом!

Создаю динамически отчёт в FastReport и после запуска он мне выдаёт ошибку

Код

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[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;i5;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 = 12;
  Memo->FillColor = clSilver;
  Memo->FrameColor = clBlack;
  Memo->FrameStyle = psSolid;
  Memo->FrameTyp = 15;
  Memo->FrameWidth = 2;
  Memo->Memo->Add("Здарова");
  Page->Objects->Add(Memo);
 
  }
  delete Band;
  Band = NULL;
  delete Page;
  Page = NULL;
  delete Memo;
  Memo = NULL;
  frReport1->PrepareReport();
  frReport1->ShowPreparedReport();
 
 

Я заметил такую характерную особенность, что когда указатели не разыменовываешь, то эта ошибка не выскакивает. Скриншот ошибки прилагаю
Заранее благодарен, кто поможет

[Day]

Memo ты создаешь 5 раз, а удаляешь только 1 раз. Но это не должно приводить к ошибке, только к утечке памяти.
А вот delete Page не удаляет ли всех своих составляющих ?

[Zor]

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait);
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   //создаём страницу

это ж звездец полный. рекомендую заборостроительный колледж.

[Sasha]

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait);
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   //создаём страницу

это ж звездец полный. рекомендую заборостроительный колледж.

Этот код я в интернете нашёл. А что не правильно объект создаётся или что?

[Zor]

если вы ничего не замечаете - учите основы языка.
и пока не изучите - к таким довольно сложным компонентам как FR лучше не подходите.

[S0mbre]

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait);
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   //создаём страницу

это ж звездец полный. рекомендую заборостроительный колледж.

Этот код я в интернете нашёл. А что не правильно объект создаётся или что?

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait); // ТУТ уде создаётся страница, т.е. выделяется память
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   // а тут ты пытаешься перезаписать созданную страницу имеющейся...

Если надо обратиться к имеющейся странице, то так:

Код

TfrPage *Page = NULL;
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1]; // дальше можно проверять Page на "не NULL"
 

[Sasha]

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait);
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   //создаём страницу

это ж звездец полный. рекомендую заборостроительный колледж.

Этот код я в интернете нашёл. А что не правильно объект создаётся или что?

Код:

TfrPage *Page = new TfrPage(0,0,0,0,poPortrait); // ТУТ уде создаётся страница, т.е. выделяется память
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1];   // а тут ты пытаешься перезаписать созданную страницу имеющейся...

Если надо обратиться к имеющейся странице, то так:

Код

TfrPage *Page = NULL;
Page = frReport1->Pages->Pages[frReport1->Pages->Count - 1]; // дальше можно проверять Page на "не NULL"
 

Спасибо за помощь, но это меня не спасло так как ошибка всё равно появляется  такое впечатление вроде я обращаю к пустой памяти, только не знаю в каком месте и иногда проскакивает другая ошибка Неверный FRF-формат

Вот исправленный код

Код

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();   
  Band->SetBounds(0,20,0,200);
  Band->BandType = btReportTitle;
  Page->Objects->Add(Band);
 
  int b = 0;
  for (int i=0;i5;i++)
 {
  TfrMemoView *Memo = new TfrMemoView();
  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;
  }
 
  if (Page !=NULL)
  {
   delete Page;
   Page = NULL;
  }
 
  if(frReport1->PrepareReport())
    {
     frReport1->ShowPreparedReport();
    }
 

[Sasha]

После долгих тестиррований было установлено, что ошибка возникает после разыменования указателя Page. Но почему это происходит, не понятно

[Sasha]

Сейчас вылетает ошибка линковщика

[linker Error] Fatal: Access violation.  Link terminated.

[Sasha]

После долгих тестиррований было установлено, что ошибка возникает после разыменования указателя Page. Но почему это происходит, не понятно

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

[Zor]

Указатели на объекты, которые ты вытаскиваешь из отчета, находятся под управлением FastReport-а.
А ты туда со своим delete-ом лезешь. Повторяю - учи основы.

PS для информации - "разименовать" значит совсем другое.

[Sasha]

Указатели на объекты, которые ты вытаскиваешь из отчета, находятся под управлением FastReport-а.
А ты туда со своим delete-ом лезешь. Повторяю - учи основы.

PS для информации - "разименовать" значит совсем другое.

Вообщем я пришёл к выводу, что в FastReporte лучше объекты не удалять.........

[olegenty]

Указатели на объекты, которые ты вытаскиваешь из отчета, находятся под управлением FastReport-а.
А ты туда со своим delete-ом лезешь. Повторяю - учи основы.

PS для информации - "разименовать" значит совсем другое.

Вообщем я пришёл к выводу, что в FastReporte лучше объекты не удалять.........

Если объект средствами FastReport создан правильно (т.е. Owner есть и это FR), то он [FR] сам позаботится об удалении. Это не только FR касается, а вообще создания/работы с VCL объектами.

Не зря же Zor тебе говорит - учи матчасть. Вопросы задавай по матчасти, а не по прикладнине [пока в матчасти не разобрался].

[Sasha]

Здравстуйте!
Уважаемые товарищи программисты!
Помогите разобраться с вопросом.

Создал отчёт в фастрепорте и хочу на нём создавать динамически объекты. Только проблема в том, что не знаю как программно поменять параметры страницы (формат и ориентацию).

FastReport 2.5

Заранее благодарен