Problème avec XML.Clear dans un TXMLDocument

Bonjour,

J'ai une application qui fonctionais, y compris Sauvegarde de donnée et chargment de donnée dans des fichiers XML.

Pour charger des information dans des composant, j'ai ajouter des TXMLDocument créer à la volé.

Suite à cela, le TXMLDocument de ma fiche principlae (qui fonctionait precedament) ce mest à me renvoyer le mesage 'Un seul élément de niveau supérieure est autorisé dans un document XML' Lorsque j'essaye d'ajouter le premier noeud de mon XMLDocument (Je vien de fair un XML.Clear, suivit de active := True).

J'ai trouvé une solution à mon problème.
Désolé de vous avoir dérangé.

Pour ceux que cela interress

Code:

---

1 2 3 4 5

XmlDocument.Active := False; XmlDocument.xml.clear; XmlDocument.Active := True;

---

Ne suffit pas toujour à vider un TXmldocument.

Apres ce code XMl il arrive que XmlDocument.xml ne soit pas vide.

en ajoutant

Code:

---

1 2 3 4 5 6 7

if XMlDocument.ChildNodes.count > 0 then begin XMlDocument.ChildNodes.clear; XMlDocument.Resync; if not XmlDocument.Active then XmlDocument.Active := True; end;

---

On est apeupres sur que cela fonctionne. Admirer le ' if not XmlDocument.Active' destiner à rendre le code sur dans tout les cas. C'est vraiment ce que j'apelle de la programation à la ...... . Enfin tant que cela fonctionne.

Code:

---

XmlDocument.Active := True;

---

va d'abord essayer de chercher le contenu dans XmlDocument.FileName, il faut donc aussi mettre

Code:

---

XmlDocument.FileName = '';

---

pour être sûr de repartir d'un document vierge.