XML-Referenz nach selectnodes

[marabu]

Hallo,

ich habe mir deinen Code angesehen und an einer Stelle die notwendige Korrektur gemacht, die andere Stelle änderst dann du:

Delphi-Quellcode:

// ...
  procedure insert(const XMLNode: IXMLDOMNode);
  var
    u: IUnknown;
  begin
    u := XMLNode as IUnknown;
    mem_1.lines.add(inttohex(integer(u),6) + ' : ' + XMLNode.nodename);
    if(XMLNode.childNodes.length > 0) then
      for i := 0 to XMLNode.childNodes.length - 1 do
        insert(XMLNode.childNodes[i]);
  end;
// ...

Zwei Interface-Pointer zeigen auf dasselbe Objekt, wenn ihre IUnknown-Pointer identisch sind.

Freundliche Grüße