Einzelnen Beitrag anzeigen

Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#8

Re: XMLAttribut auslesen

  Alt 11. Apr 2006, 12:50
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;
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!

Hey, it compiles! Ship it!
  Mit Zitat antworten Zitat