Zugriff auf XML Attribute mit '@'

[little_budda]

Guter Tipp.

Über:

Delphi-Quellcode:

            Node:= iXmlMldList.Nodes[ix];
            iXmlAttributList := Node.AttributeNodes;

            if (iXmlAttributList.Count > 0) then
              begin
                // ID
                AttribNode := iXmlAttributList[0];
                aXmlTimeTexteDe[ix+1].sId := AttribNode.Text;
                // Display
                AttribNode := iXmlAttributList[1];
                aXmlTimeTexteDe[ix+1].sDisplay := AttribNode.Text;
                // Std
                AttribNode := iXmlAttributList[2];
                aXmlTimeTexteDe[ix+1].sStd := AttribNode.Text;
                // Dlt
                AttribNode := iXmlAttributList[3];
                aXmlTimeTexteDe[ix+1].sDlt := AttribNode.Text;
                // Index
                AttribNode := iXmlAttributList[4];
                aXmlTimeTexteDe[ix+1].iIndex := strtointdef(AttribNode.Text, -1);
                // DisplayID
                AttribNode := iXmlAttributList[5];
                aXmlTimeTexteDe[ix+1].sDisplayID := AttribNode.Text;
              end;

klappt es.

Danke.

[himitsu]

Die eine Variable könntest du noch einsparen.

Delphi-Quellcode:

aXmlTimeTexteDe[ix+1].sId := iXmlAttributList[0].Text;
// oder besser
aXmlTimeTexteDe[ix+1].sId := iXmlAttributList['id'].Text;

Aber geht es über den Namen nicht?
Wäre zumindestens besser, falls die Reihenfolge mal nicht genau stimmt.