[XML] Création d'un fichier XML
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:
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; |
