Discussion :

[Tardiff Jean-François]

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).

[Tardiff Jean-François]

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

Pour ceux que cela interress

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sovitec]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XmlDocument.Active := True;

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XmlDocument.FileName = '';

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