Node auslesen

[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