用TXMLDOCUMENT 控件
XML.LoadFromFile(name.xml'); // 导入xml文件
XML.Active := True;
rootNode := xml.ChildNodes.FindNode('sss'); // 得到根节点,
if not Assigned(rootNode) then
Exit;
NodeNum := rootNode.ChildNodes.Count;
for i := 0 to NodeNum - 1 do
begin
subNode := rootNode.ChildNodes.Nodes[i];
if subNode.NodeName = 'conn-orastr' then
begin
ADOCN1.ConnectionString := subNode.NodeValue;
end;
end;
end;
XML.Active := False;