[XML] TreeView Daten in XML-File schreiben

[gsh]

Hi DPler

Ich bin grad bei meinem ersten Projekt mit XML. Aber ich glaub XML ist zu schwierig für mich
Ich hab es zwar geschafft (nach vielen stunden arbeit) die Daten aus der XML in meine TreeView reinzuschreiben. Nun wird im programm änderungen in der TreeView gemacht und deshalb will ich logischerweiße beim Programmende die daten von der TreeView wieder in die XML schreiben.

So nun hab ich mir schon mal gedacht das ich einfach immer die XML lösche und sie dann komplett neu anleg. Aber leider hab ich einfach nichts brauchbares zustande gebracht.

Hier mein Code zum auslesen aus der XML:

Delphi-Quellcode:

procedure XMLLoadXMLFile(TreeView : TTreeView; XMLNode : IXMLNode; TreeViewParent : TTreeNode);
var
  TempTreeNode : TTreeNode;
begin
  if TreeViewParent = nil then
  begin
    XMLDocument.Active := true;
    TreeView.Items.Clear;
    TreeView.Items.BeginUpdate;
    TempTreeNode := TreeView.Items.Add(nil, 'Arbeitsplatz');
    TempTreeNode.ImageIndex := 0;
    TempTreeNode.SelectedIndex := 0;
    XMLLoadXMLFile(TreeView, XMLDocument.DocumentElement.ChildNodes.First, TempTreeNode);
    TreeView.Items.EndUpdate;
    XMLDocument.Active := false;
    exit;
  end;
  while XMLNode <> nil do
  begin
    TempTreeNode := TreeView.Items.AddChild(TreeViewParent, XMLNode.NodeName);
    TempTreeNode.ImageIndex := 1;
    TempTreeNode.SelectedIndex := 1;
    XMLLoadXMLFile(TreeView, XMLNode.ChildNodes.First, TempTreeNode);
    XMLNode := XMLNode.NextSibling;
  end;
end;