Xml

[samso]

Delphi-Quellcode:

program Test1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  XMLIntf,
  XMLDoc;

var
  i: Integer;
  myConfig: IXMLDocument;
  myNode: IXMLNode;
  myNodeList: IXMLNodeList;

begin
  try
    CoInitialize(nil);
    myConfig := LoadXmlDocument('Config.xml');
    myNode := myConfig.DocumentElement.ChildNodes.First.ChildNodes.FindNode('devs');
    if myNode<>nil
    then begin
      myNodeList := myNode.ChildNodes;
      for i := 0 to myNodeList.Count - 1 do
        WriteLn(myNodeList[i].NodeName, ': ',  myNodeList[i].NodeValue);
    end;
    ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.