在Delphi访问冲突中解析XML

Question

伙计们，我真的需要帮助。我需要在Delphi 7中解析一个XML字符串，但我继续违反访问权限...请帮助!!! 任何代码......

Answer 1

一些代码。

var
    doc: IXMLDocument;
    Root, Val: IXMLNode;
    I: Integer;
begin
    //doc := LoadXMLDocument('XMLFile.xml');
    doc := LoadXMLData('<?xml version="1.0" encoding="UTF-8"?>'+
                        '<Root>'+
                          '<Val>1</Val>'+
                          '<Val>2</Val>'+
                        '</Root>');

    Root := doc.ChildNodes.FindNode('Root');
    for I := 0 to Root.ChildNodes.Count - 1 do
    begin
        Val := Root.ChildNodes[I];
        ShowMessage(Val.NodeName+'='+ Val.NodeValue);
    end;
end;