D7 XML Anfänger Problem

[marabu]

Du arbeitest entweder mit den XML-Interfaces oder mit den XMLDOM-Interfaces!

Delphi-Quellcode:

uses
  MSXML2;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  doc: IXMLDOMDocument;
  n: IXMLDOMNode;
  nl: IXMLDOMNodeList;
  i: integer;
begin
  with OpenDialog do
  if Execute then
  begin
    doc := CoDomDocument.Create;
    if doc.load(FileName) then
    begin;
      nl := doc.documentElement.selectNodes('//*');
      ListBox.Items.Clear;
      for i := 0 to Pred(nl.length) do
      begin
        n := nl.item[i];
        ListBox.Items.Add(n.nodeName);
      end;
    end else
      ShowMessage(doc.parseError.reason);
    doc := nil;
  end;
end;

Grüße vom marabu