Запись класса в файл

class Figure{
   protected:
        int x,y;
        TColor color;
        int size;
        int type;
   public:
        Figure(){};
        ~Figure(){};
        virtual void paint()=0;
 
        int getX(){return x;}
        int getY(){return y;}
        int getColor(){return color;}
        int getSize(){return size;}
        int getType(){return type;}
 
        void setX(int nX){x=nX;}
        void setY(int nY){y=nY;}
        void setColor(int nColor){color = nColor;}
        void setSize(int nSize) {size = nSize;}
        void setType(int nType) {type = nType;}
 
};
class FSquare: public Figure
{
        public:
        void paint();
        FSquare(int nx, int ny, int nc, int ns)
        {x=nx; y=ny; color = nc; size = ns;}
};
class FRectangle: public Figure
   {
        int st1,st2;
        public:
        void paint();
        FRectangle(int nx, int ny, int nc, int ns, int nst1, int nst2)
        {x=nx; y=ny; color = nc; size = ns; st1 = nst1; st2 = nst2;}
};
class FRhombus: public Figure{
        public:
        void paint();
        FRhombus(int nx, int ny, int nc, int ns)
        {x=nx; y=ny; color = nc; size = ns;}
};
class FEllipse: public Figure
   {
        int st1,st2;
        public:
        void paint();
        FEllipse(int nx, int ny,int nc,int ns, int nst1, int nst2)
        {x=nx; y=ny; color = nc; size = ns; st1 = nst1; st2 = nst2;}
};

struct List
   {
      Figure *fi;
      List *next;
   };

 switch (fType)
    {
       case square:
       {  FSquare *f= new FSquare(X,Y,fColor,fSize);
            add_to(T,f);
          break;
       }
       case rectangle:
       {  FRectangle *f = new FRectangle (X,Y,fColor,fSize,fst1,fst2);
            add_to(T,f);
          break;
       }
       case fellipse:
       {
          FEllipse *f = new FEllipse(X,Y,fColor,fSize, fst1, fst2);
            add_to(T,f);
          break;
       }
      default:
      {
        FRhombus *f = new FRhombus(X,Y,fColor,fSize);
         add_to(T,f);
      }
      }
//------------------
void __fastcall  add_to(List *&T, Figure *f)
   {
      List *tmp = new List;
      tmp->fi = f;
      tmp->next = NULL;
      if (!T)
         T=tmp;
      else
         {
            List *l=T;
            while (l->next)
               l=l->next;
            l->next=tmp;
 
         }
      return ;
 
   };

void __fastcall f_write(List *T, FILE *&F)
   {
      List *tmp = T;
      while (tmp)
         {
            int ft=tmp->fi->getType();
            fwrite(&ft, sizeof(int),1, F ) ;
            int x0=tmp->fi->getX();
            fwrite(&x0, sizeof(int) ,1 ,F);
            int y0=tmp->fi->getY();
            fwrite(&y0, sizeof(int), 1, F);
            int col=tmp->fi->getColor();
            fwrite(&col, sizeof(int), 1, F);
            int siz=tmp->fi->getSize();
            fwrite(&siz, sizeof(int), 1, F);
            int s1=tmp->fi->getSt1();
            fwrite(&s1, sizeof(int), 1, F);
            int s2=tmp->fi->getSt2();
            fwrite(&s2, sizeof(int), 1, F);
            tmp=tmp->next;
         }
 
   };
 
void __fastcall f_read(List *&T, AnsiString str)
   {
      FILE *F=fopen(str.c_str(), "r");
      while (!feof(F))
         {
            int ft;
            fread(&ft,sizeof(int),1,F);
            int x0;
            fread(&x0, sizeof(int) ,1 ,F);
            int y0;
            fread(&y0, sizeof(int), 1, F);
            int col;
            fread(&col, sizeof(int), 1, F);
            int siz;
            fread(&siz, sizeof(int), 1, F);
            int s1;
            fread(&s1, sizeof(int), 1, F);
            int s2;
            fread(&s2, sizeof(int), 1, F);
 
      switch (ft)
    {
       case square:
       {  FSquare *f= new FSquare(x0,y0,col,siz);
            add_to(T,f);
          break;
       }
       case rectangle:
       {  FRectangle *f = new FRectangle (x0,y0,col,siz,s1,s2);
            add_to(T,f);
          break;
       }
       case fellipse:
       {
          FEllipse *f = new FEllipse(x0,y0,col,siz, s1, s2);
            add_to(T,f);
          break;
       }
      default:
       {
        FRhombus *f = new FRhombus(x0,y0,col,siz);
         add_to(T,f);
       }
      }
    }
         paint_l(T);
       fclose(F);
   };

      switch (ft) // тип фигруры
      {
       case square:
       {  FSquare *f= new FSquare(x0,y0,col,siz);
            add_to(T,f);
          break;
       }
       case rectangle:
       {  FRectangle *f = new FRectangle (x0,y0,col,siz,s1,s2);
            add_to(T,f);
          break;
       }
       case fellipse:
       {
          FEllipse *f = new FEllipse(x0,y0,col,siz, s1, s2);
            add_to(T,f);
          break;
       }
      default:
       {
        FRhombus *f = new FRhombus(x0,y0,col,siz);
         add_to(T,f);
       }
      }