XMLAttribut auslesen

[ste_ett]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  XMLDocument: TXMLDocument;
  XMLNode: IXMLNode;
begin
  XMLDocument := TXMLDocument.Create(Form1);
  XMLDocument.LoadFromFile('Pfad\zur\Datei\Datei.xml');
  XMLNode := XMLDocument.DocumentElement.ChildNodes.First; // erster "Zeitraum"-Knoten
  if (XMLNode <> nil) then
  begin
    while (XMLNode <> nil) do
    begin
      if (XMLNode.HasAttribute('jahr')) then
        ShowMessage(XMLNode.Attributes['jahr']);

      XMLNode := XMLNode.NextSibling; // zum nächsten Knoten auf der Ebene / nil, wenn es keine Knoten mehr gibt
    end;
  end;

  XMLDocument.Free;
end;