// 基本クラス
class CShape {

protected: 
   int            m_type;                // 形状タイプ
   int            m_xpos;                // 基点のX座標
   int            m_ypos;                // 基点のY座標

public:
   void           CShape() { m_type=0; };       // コンストラクタ タイプ0
   int            GetType(){ return( m_type );};// 形状タイプを取得

virtual
   double         GetArea(){ return (0); }      // 形状の面積を取得
};

// 派生クラス(円形)
class CCircle : public CShape {            // コロンの後に基本クラスを定義する

private:
   double         m_radius;                // 円の半径

public:
   void           CCircle(){ m_type=1; };   // コンストラクタ タイプ1
   void           SetRadius(double r){ m_radius = r;};
   virtual double GetArea(){ return (3.14 * m_radius * m_radius);} // 円面積
};

// 派生クラス(正方形)
class CSquare : public CShape {            // コロンの後に基本クラスを定義する

private:
   double         m_square_side;                // 正方形の側面

public:
   void           CSquare(){ m_type=2; };   // コンストラクタ タイプ2
   void           SetSide(double s){ m_square_side = s;};
   virtual double GetArea(){ return ( m_square_side * m_square_side);} // 正方形面積
};

//+------------------------------------------------------------------+
//| スクリプトプログラム開始イベント
//+------------------------------------------------------------------+
void OnStart() {

   // 基本型のオブジェクトポインタ配列を宣言
   CShape *shapes[5];   // CShapeオブジェクトポインタ配列
 
   // CCircle型のオブジェクトポインタを宣言し、派生オブジェクト配列に書き込む
   CCircle *circle = new CCircle();

   // circleポインタでオブジェクトプロパティ設定
   circle.SetRadius(2.5);

   // shapes[0]にポインタ値を設定
   shapes[0] = circle;
 
   // 別のCCircleオブジェクトを作成し、shapes[1]にそのポインタを書き込む
   circle    = new CCircle();
   shapes[1] = circle;
   circle.SetRadius(5);
 
   // 意図的にshapes[2]の値を設定しない(設定処理をコメントアウト)
   //circle = new CCircle();
   //circle.SetRadius(10);
   //shapes[2] = circle;
 
   // 使用されていない要素にNULLを設定
   shapes[2] = NULL;
 
   // CSquareオブジェクトを作成し、shapes[3]にそのポインタを書き込む
   CSquare *square = new CSquare();
   square.SetSide(5);
   shapes[3] = square;
 
   // CSquareオブジェクトを作成し、shapes[4]にそのポインタを書き込む
   square = new CSquare();
   square.SetSide(10);
   shapes[4] = square;
 
   // ポインタ配列のサイズを取得する
   int total = ArraySize(shapes);

   // 配列の全ポインタをループ
   for( int i=0; i < 5; i++ ) {

      // 指定されたインデックスのポインタが有効の場合
      if ( CheckPointer( shapes[i]) != POINTER_INVALID ) {

         // オブジェクトのタイプと面積をログ出力
         PrintFormat( " オブジェクトタイプ： %d , 面積： %G",
                     shapes[i].GetType(), shapes[i].GetArea()
                    );
      } else {
         // ポインタタイプがPOINTER_INVALIDの場合

         // エラーログ出力
         PrintFormat("オブジェクトshapes[%d]は初期化されていません。 ポインタは%s",
                     i , EnumToString(CheckPointer(shapes[i]))
                    );
      }
   }
 
   // 作成した動的オブジェクトは削除する必要があります。
   for( int i=0; i < total ;i++) {

      // ポインタタイプがPOINTER_DYNAMICのオブジェクトのみ削除可能
      if ( CheckPointer(shapes[i]) == POINTER_DYNAMIC ) {
         // 削除ログ出力
         PrintFormat("オブジェクトshapes[%d]を削除",i);

         // ポインタのオブジェクトを削除
         delete shapes[i];
      }
   }
}