[gelöst] XML Attribute - einfacher Zugriff

[Der schöne Günther]

Ich verstehe das Problem nicht ganz. Dir geht es doch nur um das Attribut value , richtig? Klar musst du alle Knoten "DATA" durchgehen.

Wenn ich das hier:

Code:

<myDocument>
   <DATA name="val_masksizex" minv="1" maxv="2" value="460000" /> 
   <DATA name="val_masksizex" minv="1" maxv="2" value="42" /> 
   <DATA name="val_masksizex" minv="1" maxv="2" value="-99" /> 
</myDocument>

in mein Memo1 einfüge, auf meinen Button1 drücke erscheint in meinem Memo2 das hier:

Code:

460000
42
-99

Das ist doch was du wolltest, oder?


Folgender Code:

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
var
   rootNode:      IXMLNode;
   nodeIterator:   IXMLNode;
begin
   rootNode := LoadXMLData(Memo1.Text).DocumentElement;

   nodeIterator := rootNode.ChildNodes.First();
   while Assigned(nodeIterator) do begin
      if (nodeIterator.NodeName = 'DATA') then
         Memo2.Lines.Append( nodeIterator.Attributes['value'] );

      nodeIterator := nodeIterator.NextSibling();
   end;
end;