CheckPointer

ENUM_POINTER_TYPE  CheckPointer(
  object* anyobject      // オブジェクトポインタ
  );

//+------------------------------------------------------------------+
//| 要素の削除によってリストを削除する                                         |
//+------------------------------------------------------------------+
void CMyList::Destroy()
 {
//--- ループの中で作業するためのサービスポインタ
  CItem* item;
//--- ループを通過し、動的なポインタの削除を試みる
  while(CheckPointer(m_items)!=POINTER_INVALID)
    {
     item=m_items;
     m_items=m_items.Next();
    if(CheckPointer(item)==POINTER_DYNAMIC)
       {
        Print("Dynamic object ",item.Identifier()," to be deleted");
        delete (item);
       }
    else Print("Non-dynamic object ",item.Identifier()," cannot be deleted");
    }
//---
 }