16,748
社区成员
发帖
与我相关
我的任务
分享
iNodeCount := RootNode.ChildNodes.Count; //Msg个数
if iNodeCount = 0 then
begin
Result := False;
TempRis.Free;
CoUninitialize;
Exit;
end;
try
for i := 0 to iNodeCount - 1 do
begin
NodeF := RootNode.ChildNodes[i];
if NodeF.NodeName = 'Msg' then
begin
iiPos := Pos('CDATA[', strXmlTemp);
if iPos <> 0 then
begin
iiPos := Pos('<msg>', strXmlTemp);
strXmlTemp := Copy(strXmlTemp, iiPos, Length(strXmlTemp));
iiPos := Pos(']]>', strXmlTemp);
Delete(strXmlTemp, iiPos, Length(strXmlTemp));
WriteLog('第' + IntToStr(i) + '循环截取参数为' + strXmlTemp);
end;
<MsgInfo>
<Msg><![CDATA[……xml….]]></Msg>
<Msg><![CDATA[……xml….]]></Msg>
<Msg><![CDATA[……xml….]]></Msg>
</MsgInfo>
<MsgInfo>
<Msg><![CDATA[<msg>........</msg>]]></Msg>
<Msg><![CDATA[……xml….]]></Msg>
<Msg><![CDATA[……xml….]]></Msg>
</MsgInfo>