Delphi与XML文档

同步程序案例
procedure TGetOrderThread.PostDB(webnr:WideString);
var
  Err: String;
  SetWebnr:WideString;
  xmlDoc: IXMLDocument;
  root: IXMLNode;
  rowc: IXMLNode;//记录数
  rows: IXMLNodeList;//主记录列表
  row: IXMLNode;
  drows: IXMLNodeList;//明细列表
  drow: IXMLNode;
  i,j,slhj,jlhj:integer;
  djhj:real;
begin
  //同步数据
  xmlDoc := TXMLDocument.Create(nil);
  try
    xmlDoc.XML.Text:=Webnr;
    xmlDoc.Active:=true;
    root:=xmlDoc.DocumentElement;
    rowc:=root.ChildNodes.FindNode('RowC');
    if (rowc.NodeValue>0) and DBconn then
    begin
      rows:=root.ChildNodes.FindNode('RowS').ChildNodes;
      //showmessage('记录数:'+rowc.NodeValue);
      for i:=0 to rows.Count-1 do
      begin
        ADOConn.BeginTrans;
        try
          row:=rows.Nodes[i];
          drows:=row.ChildNodes.FindNode('Drows').ChildNodes;
          //showmessage(row.ChildValues['billno']+
          //  ' 明细记录数:'+inttostr(drows.Count));//显示订单号
          if SHelper.Active then SHelper.Close;
          SHelper.SQL.Text:=Format(selectStr,[row.ChildValues['billno']]);
          SHelper.Open;
          jlhj:=0;
          slhj:=0;
          djhj:=0;
 &nb