Brauche Hilfe bei XML-Datei

[Aviator]

Hallo zusammen,

ich hänge mich mal an dieses Thema mit dran, da ich auch gerade ein Problem damit habe, XML-Dateien auszulesen. Habe bisher nur mit INI-Files gearbeitet, wollte jetzt aber mal ein Projekt mit XML-Dateien aufbauen. Und zwar geht es um folgende XML-Datei:

XML-Code:

<?xml version="1.0"?>
<CardInformation>
   <name></name>
   <orbs count="x">
      <fire>x</fire>
      <frost>x</frost>
      <nature>x</nature>
      <shadow>x</shadow>
   </orbs>
   <affinity></affinity>
   <energy></energy>
   <type kind=""></type>
   <charges></charges>
   <rarity></rarity>
   <edition></edition>
   <weapontype></weapontype>
   <size></size>
   <attack></attack>
   <defense></defense>
   <special>
      <special1></special1>   
   </special>
   <picture></picture>
</CardInformation>

Meine Frage ist jetzt, wie ich an die Einzelnen Knoten dran komme. Ich brauche alle Informationen wie z.B. name, orbs, affinity usw. Diese sollen in einem Object gespeichert werden. Folgenden Code habe ich dazu geschrieben (angelehnt an den Code von DeddyH):

Delphi-Quellcode:

procedure TCardReader.CreateBFCardInfo(const AXmlList: TStringList; const ABFCardInfoList: TBFCardInfoList);
var
  i, j: Integer;
  ci: TBFCardInfo;
  doc: IXmlDocument;
  Node: IXMLNode;
begin
  CoInitialize(nil);
  try
    doc := TXMLDocument.Create(nil);
    for i := 0 to AXmlList.Count - 1 do begin
      ci := TBFCardInfo.Create;

      doc.LoadFromFile(AXmlList[i]);  // Load XmlDocument
      doc.Active := True;  // Activate Document and check it

      if doc.DocumentElement.HasChildNodes then begin
        for j := 0 to doc.DocumentElement.ChildNodes.Count - 1 do begin
        end;
        Node := doc.DocumentElement.ChildNodes.FindNode('CardInformation');
        if Assigned(Node) then begin
          ci.Name := Node.ChildNodes.FindNode('name').NodeValue;
          ci.Orbs := Node.ChildNodes.FindNode('orbs').NodeValue;

          ABFCardInfoList.Add(ci);
        end;
      end;
    end;
  finally
    CoUninitialize;
  end;
end;

Allerdings steigt er schon in der Zeile if doc.DocumentElement.HasChildNodes then begin aus und überspringt den nachfolgenden Part. Ich schaffe es also nicht, überhaupt an die untergeordneten Knoten von CardInformation ranzukommen. Wo liegt mein Fehler? Ich hoffe mir kann da jemand bei helfen. Vielleicht kann auch jemand noch ein Beispiel machen, wie ich an die Subknoten von orbs herankomme. Ich denke zwar, dass das dann das gleiche Verfahren sein wird, aber bevor ich hier nochmal gegen die Wand renne ...