XML Probleme Datei erstellen

[svehei]

ich lese folgendermassen aus einer xml-datei

Delphi-Quellcode:

procedure XXX.LoadFromHRXMLFile(FileName: String; AOwner: TComponent);
var
  FXMLDocument      : TXMLDocument;
  lNode             : IXMLNode;
  lNodeList         : IXMLNodeList;
  i : integer;
begin
  FXMLDocument := TXMLDocument.Create(AOwner);
  FXMLDocument.LoadFromFile(FileName);
  FXMLDocument.Active := True;
  //Root Element setzen
  lNode     := FXMLDocument.DocumentElement;
  lNodeList := lNode.ChildNodes;
  //alle Nodes durchgehen
  for i := 0 to lNodeList.Count -1 do
  begin
    showmessage(lNodeList.Nodes[i].NodeName+'='+lNodeList.Nodes[i].text);
  end;

und das funzt wunderbar

da es sich um xml-dateien handelt, ist das speichern ist im prinzip ganz easy. du kannst das wie bei normalen textfiles machen

Delphi-Quellcode:

  AssignFile(f, FileName);
{$I-}
  rewrite(f);
{$I+}
  if IOResult = 0 then
  begin
    writeln(f, '<?xml version="1.0" encoding="UTF-8"?>');
    writeln(f, '<ROOTTAG>');
    writeln(f, '<SUBTAG>'+FValue+'</SUBTAG>');

...

die einzelnen tags kannst du natuerlich baummaessig aus deinem zuvor gelesenen IXMLNode ermitteln und schreiben

ich hoffe das hilft dir weiter