Delphi访问冲突中的XML解析

伙计们，我真的需要帮助。我需要在Delphi7中解析一个XML字符串，但我不断地遇到访问冲突…请帮助！！！ 任何一位代码…

一位代码

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;

var
文件：IXMLDocument；
根，Val:IXMLNode；
I：整数；
开始
//doc:=LoadXMLDocument（'XMLFile.xml'）；
doc:=LoadXMLData（“”+
''+
'1'+
'2'+
'');
Root:=doc.ChildNodes.FindNode（'Root'）；
对于I:=0到Root.ChildNodes.Count-1 do
开始
Val:=Root.ChildNodes[I]；
ShowMessage（Val.NodeName+'='+Val.NodeValue）；
结束；
结束；

您做错了，这就是为什么会出现访问冲突。做对了，你会没事的。别开玩笑了，如果你不发代码，我们怎么帮你？是的，你的权利，我的错。我发帖的时候很匆忙，没有思考。无论如何谢谢你