XML Aenliche Datei auslesen und in TreeView laden

[lucius]

Hallo Leute,

Ich moechte eine XML Datei auslesen und ausgeben in einem TreeView oder ListView, die XML ist folgendermasen aufgebaut:

Zitat:

<nzb>
|
|------<file>
| |
| |------<groups>
| | |
| | |------<group>
| |
| |------<segments>
| |
| |------<segment>
| |------<segment>
| |------<segment>
|
|------<file>
| |
| |------<groups>
| | |
| | |------<group>
| |
| |------<segments>
| |
| |------<segment>

Folgender Code benutze Ich, wobei er schon bei dem Wort file anfaengt zu mekkern.
Delphi 7 sieht das Wort 'file' als ein code, wie verhindere Ich das?

Delphi-Quellcode:

var
  xmlDomdoc : DomDocument60;
  file, anwendung : IXMLDomNodelist;
  Node, subNode : IXMLDomNode;
  tv : TTreeNode;
  i, j  : integer;
begin

xmlDomDoc := CoDomDocument60.Create;
xmlDomDoc.setProperty('NewParser', true);
xmlDomDoc.load('i:\Test\alone in the dark.xml');

TreeView.Items.BeginUpdate;
  TreeView.Items.Clear;

  file:= xmlDomDoc.documentElement.selectNodes('file'); <--------- hier gehts schon schief.
  groups:= xmlDomDoc.documentElement.selectNodes('file/groups');

  for i:= 0 to file.length - 1 do
  begin
    Node := file.item[i].selectSingleNode(group);
    tv   := TreeView.Items.Add(nil, Node.text);

    if(Node.childNodes.length > 0) then
      for j := 0 to Node.childNodes.length - 1 do
        begin 
          subNode := file.item[i].selectSingleNode(segments/segment);
          TreeView.Items.AddChild(tv, subNode.text);
        end;
    end;

  TreeView.Items.EndUpdate;

end;

Schonmal Recht Herzlichen Dank.

Gruss Lucius.