Attribute in XML suchen und ausgeben...Wie?

[Alter Mann]

HI torud,

meine XML-Kenntnisse sind 'nicht' so doll, habe aber unter MS-C# ein ähnlich gelagertes Problem.

Ungeprüft nach Delphi könnte es so aussehen:

Delphi-Quellcode:

function GetXmlAttribute(XMLContent, Attribut : String) : String;
var
xmlDoc : XmlDocument;
root   : XmlElement;
i, j   : Integer;
found  : Boolean;
begin
  if FileExists(XMLContent) then
  begin
    xmlDoc = := CoDOMDocument40.Create; 
    xmlDoc.LoadXML(FileName);
    root := xmlDoc.DocumentElement;
    if root.ChildNodes.Count > 0 then 
    begin
      for i := 0 to root.ChildNodes.Count-1 do
      begin
        if (root.ChildNodes[i].Name = "MatchStats") and (root.ChildNodes[i].Attributes.Count -1 > -1) then 
        for j := 0 to root.ChildNodes[i].Attributes.Count -1 do
        begin
          if root.ChildNodes[i].Attributes[j].Name = Attribut then
          begin
            Result := root.ChildNodes[i].Attributes[j].Value;
            found  := true;
            Break;
          end;
          if found then Break;
        end;
     end;
   end;
  end;
end;

Ob das jetzt 100% 'ChildNodes' und 'Attributes' unter Delphi heißt weiß bestimmt die Hilfe.

Gruß