Question

delphi中怎么读取XML的 CDATA 节点数据

Answer 1

function decodexml(filename: string):boolean;
var
ncount,i,j,k,m,n:integer;
nodeList,nodewp: IXMLNodeList;
node,nodejbxx,row,wpxx: IXMLNode;
datainfo:TBarInfo;
cp:array of TCpInfo;
oldqydm,cqydm:string;
breload:Boolean;
begin
breload:=false;
result:=false;
try
XMLDocument1.FileName :=filename;
XMLDocument1.Active := True; {激活}
nodeList := XMLDocument1.DocumentElement.ChildNodes;
for I := 0 to nodeList.Count-1 do
begin
node:=nodeList[i];
if node.NodeName='aa' then
begin
datainfo.Qy.qymc:=node.ChildValues['a1'];
datainfo.Qy.lxdm:=node.ChildValues['a2'];
datainfo.Qy.qydm:=node.ChildValues['a3'];
datainfo.Qy.zzdm:=node.ChildValues['a4'];
end
else
if node.NodeName='bb' then
begin
nodewp:=node.ChildNodes;
if nodewp.Count>0 then
begin

for k := 0 to nodewp.Count-1 do
begin
row:=nodewp[k];
cp[k].Cplb:=row.ChildNodes.Nodes['b1'].Text;
cp[k].Cpjb:=row.ChildNodes.Nodes['b2'].Text;
cp[k].Cpxh:=row.ChildNodes.Nodes['b3'].Text;
cp[k].cpmc:=row.ChildNodes.Nodes['b4'].Text;
cp[k].zyl:=row.ChildNodes.Nodes['b5'].Text;
cp[k].dw:=row.ChildNodes.Nodes['b6'].Text;
application.ProcessMessages;
end;
end;
end;

end;

Answer 2

很简单，用 TNativeXml 即可实现。