//+--------------------------------------------------------------------------------+
//| Check_GetPointer.mq5 |
//| Copyright 2009, MetaQuotes Software Corp. |
//| https://www.mql5.com |
//+--------------------------------------------------------------------------------+
#property copyright "2009, MetaQuotes Software Corp."
#property link "https://www.mql5.com"
#property version "1.00"
//+--------------------------------------------------------------------------------+
//| Classe che implementa gli elementi della lista |
//+--------------------------------------------------------------------------------+
class CItem
{
int m_id;
string m_comment;
CItem* m_next;
public:
CItem() { m_id=0; m_comment=NULL; m_next=NULL; }
~CItem() { Print("Distruttore di ",m_id,
(CheckPointer(GetPointer(this))==POINTER_DYNAMIC)?
"dynamic":"non-dynamic"); }
void Initialize(int id,string comm) { m_id=id; m_comment=comm; }
void PrintMe() { Print(__FUNCTION__,":",m_id,m_comment); }
int Identifier() { return(m_id); }
CItem* Next() {return(m_next); }
void Next(CItem *item) { m_next=item; }
};
//+--------------------------------------------------------------------------------+
//| Più semplice classe della lista |
//+--------------------------------------------------------------------------------+
class CMyList
{
CItem* m_items;
public:
CMyList() { m_items=NULL; }
~CMyList() { Destroy(); }
bool InsertToBegin(CItem* item);
void Destroy();
};
//+--------------------------------------------------------------------------------+
//| Inserisce gli elementi della lista all'inizio |
//+--------------------------------------------------------------------------------+
bool CMyList::InsertToBegin(CItem* item)
{
if(CheckPointer(item)==POINTER_INVALID) return(false);
//---
item.Next(m_items);
m_items=item;
//---
return(true);
}
//+--------------------------------------------------------------------------------+
//| Elimina la lista eliminando gli elementi |
//+--------------------------------------------------------------------------------+
void CMyList::Destroy()
{
//--- puntatore di servizio per lavorare in un loop
CItem* item;
//--- passa attraverso il loop e tenta di eliminare i puntatori dinamici
while(CheckPointer(m_items)!=POINTER_INVALID)
{
item=m_items;
m_items=m_items.Next();
if(CheckPointer(item)==POINTER_DYNAMIC)
{
Print("Dynamyc object ",item.Identifier()," to be deleted");
delete (item);
}
else Print("L' oggetto non-dinamico ",item.Identifier()," non può essere eliminato");
}
//---
}
//+--------------------------------------------------------------------------------+
//| Funzione di avvio del programma Script |
//+--------------------------------------------------------------------------------+
voidOnStart()
{
CMyList list;
CItem items[10];
CItem* item;
//--- crea ed aggiunge nella lista un puntatore oggetto dinamico
item=new CItem;
if(item!=NULL)
{
item.Initialize(100,"dynamic");
item.PrintMe();
list.InsertToBegin(item);
}
//--- aggiunge puntatori automatici nella lista
for(int i=0; i<10; i++)
{
items[i].Initialize(i,"automatic");
items[i].PrintMe();
item=GetPointer(items[i]);
if(CheckPointer(item)!=POINTER_INVALID)
list.InsertToBegin(item);
}
//--- aggiunge uno o più oggetti puntatori dinamici all'inizio della lista
item=new CItem;
if(item!=NULL)
{
item.Initialize(200,"dynamic");
item.PrintMe();
list.InsertToBegin(item);
}
//--- elimina tutti gli elementi della lista
list.Destroy();
//--- tutti gli elementi della lista verranno eliminati dopo che lo script è andato
//--- vedere la scheda Experts nel terminale
}
|