Discussion :

[TheDarkLewis]

Salut,


Je souhaite exporter les données issues d'un composant TTreeView vers un fichier XML.


J'ai donc réalisé ce code (grâce à vous), mais le problème est : ERREUR : un seul élement de niveau supérieur autorisé ...

Le noeud XML n'est représenté qu'une fosi biensûr (est-il utile ?)


Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure SaveToXML(TreeView1: TTreeView; XMLDoc: TXMLDocument);
var
  i: integer;
begin
  // Initialisation du composant XMLDoc
  XMLdoc.ChildNodes.Clear;
  XMLdoc.Version := '1.0';
  XMLdoc.Encoding := 'ISO-8859-1';
 
  with XMLdoc.AddChild('XML') do
  begin
    for i:= 0 to Treeview1.Items.Count - 1 do
    begin
      if Treeview1.Items[i].Level = 0 then
      begin
        with XMLdoc.AddChild('Account') do
        begin
          AddChild('Name').Text  := Treeview1.Items[i].Text;
          AddChild('Infos').Text := PChar(Treeview1.Items[i].Data);
        end;
      end;
    end;
  end;
 
  // Sauvegarde des données au format XML
  XMLdoc.SaveToFile('backup.xml');
end;

[Pierre Castelain]

Je suppose que l'erreur est liée au nom de ton noeud principal, tu devrais le nommer autrement que XML.

[TheDarkLewis]

J'ai déjà essayé, ce n'est pas du à ça ...



Merci poru ta réponse ...

[Pierre Castelain]

Tu es certain qu'il n'y a pas déjà un noeud principal dans le document ?

[TheDarkLewis]

Oui

[Pierre Castelain]

Ouais, je n'avais pas vu le méchant bug. Remplace la ligne où tu ajoute le noeud Account par :

Code :

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

1
2
 
        with AddChild('Account') do

[TheDarkLewis]

Merci ça fonctionne ...