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;