Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
Delphi 7 Professional
|
Re: XMLAttribut auslesen
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!
|