Delphi中如何使用 MSXMLDOM

首先需要uses msxml,msxmldom
然后看使用:
procedure TFormPatientTemplate.Button1Click(Sender: TObject);
var
  xmlString : string;
  xml_document:IXMLDOMDocument;
  newctrl_list : IXMLDOMNodeList;
  newctrl_node : IXMLDOMNode;
  newLen : Integer;
  i : Integer;
  strtemp:string;
  strName : string;
  strMarry :string;
  strSQL :string;
begin

   xml_document := CoDOMDocument.create;
   xml_document.loadXML(NsoControl1.GetAllSectAndNewCtrlContentByCurrentDoc('0,1,2','0,1',1,1));
   newctrl_list := xml_document.getElementsByTagName('NewCtrl');
   newlen :=  newctrl_list.length;
   for i := 0 to newlen-1 do
   begin
      newctrl_node := newctrl_list.item[i];
      strtemp := newctrl_node.childNodes.item[0].text;
      if  strtemp = '6' then
          strName :=  newctrl_node.childNodes.item[1].text;
      if  strtemp = '23' then
          strMarry :=  newctrl_node.childNodes.item[1].text;
      if ( strName <> '') and ( strMarry <> '') then
          break;
   end;
   strSQL := 'update 病人信息表 set 婚姻状况 = '' +strMarry +''where 姓名 = ''+strName + ''';
   with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update 病人信息表 set 婚姻状况 = :strMarry where 姓名 = :strName ');
      parameters.ParamByName('strMarry').Value :=  strMarry;
      parameters.ParamByName('strName').Value :=  strName;
      execsql;
    end;
end;

一旦可以使用这些对象接口,那么对xml的操作都狠灵活了,可以参照dom文档

你可能感兴趣的:(Delphi中如何使用 MSXMLDOM)