ポリモーフィズム

//--- 基本クラス
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); }// 図形の面積を返す
 };

//--- 派生クラス circle
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);}// 円の面積
 };

//--- 派生クラス Square
class CSquare : public CShape           // コロンの後に基本クラスを定義する
 {                                     // 継承の元
private:
  double         m_square_side;       // 正方形の側面
 
public:
  void            CSquare(){m_type=2;}; // コンストラクタ（タイプ 1 ）
  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 オブジェクトをあと 1 つ作成し 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("The object of type %d has the square %G",
              shapes[i].GetType(),
              shapes[i].GetArea());
       }
    //--- ポインタの種類が POINTER_INVALID の場合
    else
       {
        //--- エラーの通知
        PrintFormat("Object shapes[%d] has not been initialized! Its pointer is %s",
                    i,EnumToString(CheckPointer(shapes[i])));
       }
    }
 
//--- 作成した全ての動的オブジェクトは削除が必要
  for(int i=0;i<total;i++)
    {
    //--- POINTER_DYNAMIC 型のポインタを持つオブジェクトのみを削除可能
    if(CheckPointer(shapes[i])==POINTER_DYNAMIC)
       {
        //--- 削除の通知
        PrintFormat("Deleting shapes[%d]",i);
        //--- オブジェクトをポインタを通して削除
        delete shapes[i];
       }
    }
 }