Zugriff auf XML Attribute mit '@'

[little_budda]

Hallo,

ich möchte gerne Atttibute aus einem Knoten in ein dynamisches Array einlesen.
Hier im Forum habe ich gefunden das man auf Attribute mit einem führenden'@' als Subknoten des Primärelements zugreifen kann.
Will aber leider nicht klappen.

Ich versuche es aktuell so:

Delphi-Quellcode:

  iXML.LoadFromFile(sAppStartPath + sTextDirPart + '\' + sVersion + '\' + sZsTimeFileDe);
  iXML.Active:=true;
  RootNode := iXML.ChildNodes['timezones'];
  iXmlMldList := RootNode.ChildNodes;
  iMldCount := iXmlMldList.Count;
  setlength(aXmlTimeTexteDe, iMldCount + 1);
  aXmlTimeTexteDe[0].iIndex := iMldCount;
  for ix := 0 to (iMldCount - 1) do
    begin
      Node:= iXmlMldList.Nodes[ix];

      aXmlTimeTexteDe[ix+1].sId           := Node['@id'].Text;
      aXmlTimeTexteDe[ix+1].sDisplay      := Node['@Display'].Text;
      aXmlTimeTexteDe[ix+1].sStd          := Node['@Std'].Text;
      aXmlTimeTexteDe[ix+1].sDlt          := Node['@Dlt'].Text;
      aXmlTimeTexteDe[ix+1].iIndex        := strtointdef(Node['@Index'].Text, -1);
      aXmlTimeTexteDe[ix+1].sDisplayID    := Node['@DisplayID'].Text;
    end;

Das Array aXmlTimeTexteDe ist vom Typ

Delphi-Quellcode:

type TXmlTimeTexte = record
  sId               : string;
  sDisplay          : string;
  sStd              : string;
  sDlt              : string;
  iIndex            : integer;
  sDisplayID        : string;
  tDelayTimeStd     : TTime;
  tDelayTimeDlt     : TTime;
  bIncreaseTime     : boolean;
end;

Die XML Datei sieht aus wie folgt:

Code:

<?xml version="1.0" encoding="UTF-8" ?>
<timezones>
  <timezone 
    id="Afghanistan Normalzeit" 
    Display="(GMT+04:30) 
    Kabul" Std="Afghanistan Normalzeit" 
    Dlt="Afghanistan Sommerzeit" 
    Index="175" 
    DisplayID="(GMT+04:30) Kabul" />

  ...

<timezones>

Sobald ich auf den ersten Zugriff laufe (Node['@id'].Text) bekomme ich eine Exception "Ungültige Variantenoperation".
Was mache ich denn bitte falsch?