XML Dateien auslesen

[Centrii]

Delphi-Quellcode:

var XML                       : IXMLDocument;
    CNode                     : IXMLNode;
    CdNode                    : IXMLNode;
    PNode                     : IXMLNode;
    i,j,k,m,n,o,p             : Integer;
begin
  XML:=NewXMLDocument;
  XML.XML.Text:=XMLCode;
  XML.Options := [doNodeAutoCreate,doAutoSave];
  XML.Active:=true;
  for i:=0 to XML.ChildNodes.Count-1 do
  begin
    for j:=0 to XML.ChildNodes[i].ChildNodes.Count-1 do
    begin
      CdNode:=XML.ChildNodes[i].ChildNodes[j];
      if CdNode.NodeName='computerdaten' then begin
        for k:=0 to CdNode.ChildNodes.Count-1 do
        begin
          PNode:=CdNode.ChildNodes[k];
          if PNode.NodeName='mainbord' then Variable := PNode.NodeValue;   // deine Variable
          else if PNode.NodeName='cpu' then Variable := PNode.NodeValue;   // deine Variable
           .
           .
           .
           .
        end;
      end;
    end;
  end;
end;

probier das mal, aber keine garantie, das habe ich eben nur hier rein geschrieben, ohne zu testen

Gruß Ruben