Delphi xml文件的修改

Question

文件内容如下：
<?xml version="1.0" encoding="utf-8"?>
<caches>
<cache name="地区信息" dll_name="BLLPack.bpl" method="CacheRegion" size="325" necessary="1" cache_way="1">
<tables>
<item name="region" update_date="2010-02-02 12:12:12:000" />
<item name="hospital_region" update_date="2010-02-02 12:12:12:000" />
</tables>
</cache>
<caches>
如何能修改update_date的值

Answer 1

uses
XMLIntf, XMLDoc;procedure TForm1.Button2Click(Sender: TObject);
var
  xmlDoc: IXMLDocument;
  Node: IXMLNode;
  NodeList: IXMLNodeList;
begin
  xmlDoc := TXMLDocument.Create(nil);
  xmlDoc.Active := true;
  xmlDoc.Version := '1.0';
  xmlDoc.Encoding := 'GB2312';
  xmlDoc.LoadFromFile('c:\a.xml');
  NodeList := xmldoc.DocumentElement.ChildNodes['cache'].ChildNodes['tables'].ChildNodes;
  Node := NodeList.First ;
  Node.SetAttribute('update_date', 'abc');
  xmlDoc.SaveToFile('c:\a.xml');
  xmlDoc := nil;
end;

Answer 2

可以用XML绑定，然后直接用绑定对象加载，然后修改就可以了，这样非常简单。

Answer 3

顶1楼
不过，如果1楼代码报错
可能1：删除  xmlDoc.Version := '1.0';xmlDoc.Encoding := 'GB2312';
可能2：查看 TxmlDocument的Encoding属性