晕,XML操作初级问题呀。XMLDoc: IXMLDocument;l_Root,l_Node, l_ItemNode: IXMLNode;sl: TStringList; XMLDoc := TXMLDocument.Create(nil); try XMLDoc.LoadFromXML(str); //上面的XML L_Root := XMLDoc.DocumentElement; for I := 0 to L_Root.ChildNodes.Count - 1 do begin L_Node := L_Root.ChildNodes.Nodes; if L_Node.NodeName = 'items' then begin for J := 0 to l_Node.ChildNodes.Count - 1 do begin l_ItemNode := L_Node.ChildNodes.Nodes[j]; if l_ItemNode.nodeName = 'sales' then begin sl.Add(l_ItemNode.NodeValue); end; end; end; end; finally xmldoc := nil; end;//==============上面的代码未测试,大概意思,sl需要创建。你自己调整一下。