Danke für den link Mathias
Für alle die es interessiert, hier mal der komplette Quellcode:
(tv ist ein TreeView)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: TDOMDocument;
begin
tv.Items.Clear;
Doc := XmlToDomParser1.FileToDom(extractfiledir(application.ExeName) + '\test.xml');
GetThoseNodes(Doc.documentElement,nil);
end;
procedure TForm1.GetThoseNodes(const Knoten: TDomNode; tvParent: TTreeNode);
var
tn : TTreeNode;
len, i: Integer;
s: string;
begin
if (Knoten = nil) then exit;
if (Knoten.nodeType = ntElement_Node) then
s:=Knoten.nodeName
else
s:=Knoten.nodeValue;
if (tvparent=nil) then
tn:= tv.Items.Add(nil,s)
else
tn := tv.Items.AddChild(tvParent,s);
if Knoten.childNodes.length >0 then
for i := 0 to Knoten.childNodes.length - 1 do
GetThoseNodes(Knoten.childNodes.item(i),tn);
end;