解析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;