Has Next Node

boolean NavigaAncora = False // Controllo se ci sono altri figli da navigare
// 
NavigaAncora := XMLNode.HasNextNode()

// *********************************************************
// Explain which processing is carried out by this procedure
// *********************************************************
public void XMLDocument.Importa0(
  XMLNode Sorgente // Nodo XML da cui leggere
  MyXMLItem Padre  // INDE Item in cui inserire i figli
)
{
  // Finché trovo degli oggetti contenuti nella sorgente aggiungo figli
  // all'oggetto padre
  while Sorgente.HasNextNode()
  {
    MyXMLItem NuovoOggetto = new() // 
    XMLNode Nodo = null            // 
    // 
    Nodo := Sorgente.GetNextNode()
    // 
    // Scrivo nel debug il codice XML che sto leggendo
    EsempiGL.DTTLogMessage(Nodo.ToString(), ??, ??)
    // 
    // Se sto leggendo un oggetto di tipo item
    if Nodo.Name() = item AND Nodo.IsElement()
    {
      NuovoOggetto.Nome := Nodo.GetAttribute(Nome)
      NuovoOggetto.Descrizione := Nodo.GetAttribute(Descrizione)
      Padre.ItemsFigli.Add(NuovoOggetto)
    }
    // 
    // Se è un nodo di tipo commento lo scrivo nel debug
    if Nodo.Type() = XML Comment Type
    {
      EsempiGL.DTTLogMessage(Nodo.Value(), ??, ??)
    }
    // 
    // Se il sorgente è di tipo text scrivo nel debug il testo contenuto
    if Nodo.IsText()
    {
      EsempiGL.DTTLogMessage(Nodo.Value(), ??, ??)
    }
    // 
    if Nodo.HasNextNode()
    {
      this.Importa0(Nodo, NuovoOggetto)
    }
  }
  Padre.Loaded := True
  Padre.ItemsFigli.Loaded := True
}