при компицяции выдаёт Unresolved external 'chelovek::chelovek(int,int,int)' referenced from ...*.OBJ
Код:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
class point
{public: int x,y;
public: point(int a1,int b1); void tochka(int a1,int b1);};
class circle:public point
{protected: int r;
public: circle (int a1,int b1,int c); void krug (int a1,int b1,int c);};
class TeloRukaGolova:public circle
{public: TeloRukaGolova(int a1,int b1,int c); void kvadrat(int a1,int b1,int c);};
class parashut: public circle
{
public: parashut (int a1,int b1,int c); void myparashut(int a1,int b1,int c);
};
class chelovek: public circle,public parashut, public TeloRukaGolova
{
public: chelovek(int a1,int b1,int c); void parashutist(int a1,int b1,int c);
};
class samolet
{
private: int i,j,k;
public: void zad();
};
/********************конструкторы*******************************/
point::point(int a1,int b1)
{x=a1;y=b1;}
circle::circle (int a1,int b1,int c) : point (a1,b1)
{x=a1;y=b1;r=c;}
TeloRukaGolova::TeloRukaGolova(int a1,int b1,int c):circle(a1,b1,c)
{x=a1;y=b1;r=c;}
parashut::parashut (int a1,int b1,int c):circle(a1,b1,c)
{x=a1;y=b1;r=c;}
/********************методы************************************/
void point::tochka(int a1,int b1)
{x=a1;y=b1;}
void circle::krug(int a1,int b1,int c)
{
x=a1;y=b1;r=c;
Form1->Image1->Canvas->Ellipse(x-r,y-r,x+r,y+r);
}
void TeloRukaGolova::kvadrat(int a1,int b1,int c)
{
x=a1;y=b1;r=c;
Form1->Image1->Canvas->Brush->Color=clGreen;
Form1->Image1->Canvas->Rectangle(x-r,y+r,x+r,y+r*4);
Form1->Image1->Canvas->Brush->Color=clSilver;
Form1->Image1->Canvas->Rectangle(x-r*2,y-r,x-r,y+r*2);
Form1->Image1->Canvas->Rectangle(x+r,y-r,x+r*2,y+r*2);
Form1->Image1->Canvas->Rectangle(x-r,y+r*4,x,y+r*7);
Form1->Image1->Canvas->Rectangle(x,y+r*4,x+r,y+r*7);
Form1->Image1->Canvas->Brush->Color=clWhite;
}
void samolet::zad()
{
i=int(Form1->Image1->Width/2);
j=140; k=20;
Form1->Image1->Canvas->Pen->Width=2;
Form1->Image1->Canvas->Ellipse(i-k*3,j-k*3,i+k*3,j+k*3);
Form1->Image1->Canvas->Pen->Width=3;
Form1->Image1->Canvas->Ellipse(i-k*6,j,i-k*5,j+k); //левый
Form1->Image1->Canvas->Ellipse(i+k*5,j,i+k*6,j+k); //правый
Form1->Image1->Canvas->Pen->Width=5;
Form1->Image1->Canvas->MoveTo(i-k*3,j);
Form1->Image1->Canvas->LineTo(i-k*9,j);
Form1->Image1->Canvas->MoveTo(i+k*3,j);
Form1->Image1->Canvas->LineTo(i+k*9,j);
Form1->Image1->Canvas->MoveTo(i,j-k*3);
Form1->Image1->Canvas->LineTo(i,j-k*6);
Form1->Image1->Canvas->Pen->Width=1;
}
void parashut::myparashut (int a1,int b1,int c)
{x=a1;y=b1;r=c;
Form1->Image1->Canvas->MoveTo(x-r*2,y-r*3);
Form1->Image1->Canvas->LineTo(x-r,y-r);
Form1->Image1->Canvas->LineTo(x,y-r*3);
Form1->Image1->Canvas->LineTo(x+r,y-r);
Form1->Image1->Canvas->LineTo(x+r*2,y-r*3);
Form1->Image1->Canvas->LineTo(x-r*2,y-r*3);
Form1->Image1->Canvas->Pie(x-r*2,y-r*5,x+r*2,y-r,x+r*2,y-r*3,x-r*2,y-r*3);
}
void chelovek::parashutist(int a1,int b1,int c)
{
TeloRukaGolova t(0,0,0);
t.kvadrat(a1,b1,c);
circle y(0,0,0);
y.krug(a1,b1,c);
parashut u(0,0,0);
u.myparashut(a1,b1,c);
}
/*************************************************************/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
chelovek q(0,0,0);
q.parashutist(50,150,20);
samolet o;
o.zad();
//Form1->Image1->Canvas->Brush->Color=clWhite;
//Form1->Image1->Canvas->Rectangle(0,0,Form1->Image1->Width,Form1->Image1->Height);
}
//---------------------------------------------------------------------------