На данном этапе развития программки она должна рисовать правельный n-угольник.
Она его успешно рисует, но после нажатия кнопки выход появляется вот такая ошибка:
Project Project1.exe raised exception class EAccessViolation
with message'Access violation at address 32609C45. Write of address
FFFFFFA4' Process stopped. Use Step or Run to continue.
Либо я с указателями что-то путаю, либо где-то у меня жуткая ошибка, о которой я даже и не догадываюсь.
Так что если кто поможет буду очень благодарен.
Вот её код:
//---------------------------------------------------------------------------
#include <math.h>
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int round(double x)
{
if ((ceil(x)-x)<0.5)
return ceil(x);
else
return floor(x);
}
int get_y (int n, int r,double phi)
{return 100-round(r*sin(M_PI/2+phi));
}
int get_x (int n, int r, double phi)
{ return 100+round(r*cos(M_PI/2+phi)) ;
}
TPoint* getpoints(int n, int r)
{
double phi = 0;
TPoint *array = new TPoint[n];
for(int i = 0; i < n+1; i++)
{
array[i] = Point(get_x(n, r, phi),get_y(n,r, phi));
phi+=2*M_PI/n;
}
return array;
}
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Image1->Canvas;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ((Edit1->Text!="")&&(Edit2->Text!=""))
{int n=StrToInt(Edit1->Text);
int r=StrToInt(Edit2->Text);
if ((n>2)&&(r>20))
Image1->Canvas->Polygon(getpoints(n,r),n);
else ShowMessage("Не верно указанно или количество граней, или длина, или одно из полей пустое");
}
else ShowMessage("Не верно указанно или количество граней, или длина, или одно из полей пустое");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{ Action=caFree;
}
//---------------------------------------------------------------------------