Node auslesen

[krys2000]

Hallo!
Kann mir jemand Typ geben wie ich die nr auslesen kann mit MSXML
Danke

Delphi-Quellcode:

<?xml version="1.0" ?>
<artikel typ="S">
<zahl anzahl_rec="150">
<nr>084</nr>
<nr>187</nr>
<nr>280</nr>
<nr>383</nr>
<nr>486</nr>
</zahl>
</artikel>

[marabu]

Hi Chris.

Deinen XML-Code habe ich in Memo und den Inhalt der Elemente mit dem Namen nr lese ich in eine ListBox:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  nl: IDOMNodeList;
  ns: IDOMNodeSelect;
  nx: IDOMNodeEx;
  i: Integer;
begin
  ListBox.Clear;
  with XMLDocument do
  begin
    XML.Assign(Memo.Lines);
    Active := true;
    ns := documentElement.DOMNode as IDOMNodeSelect;
    nl := ns.SelectNodes('zahl/nr');
    for i := 0 to Pred(nl.length) do
    begin
      nx := nl.item[i] as IDOMNodeEx;
      ListBox.Items.Add(nx.text);
    end;
  end;
end;

Freundliche Grüße vom marabu