procedure TForm1.Button1Click(Sender: TObject); var xmlDoc : IXMLDOMDocument; xmlNode : IXMLDOMNode; i : integer; begin xmlDoc:=IXMLDOMDocument(CreateOleObject('MSXML.DOMDocument')); xmldoc.load('c:\dd.xml'); for i:= 0 to xmldoc.getElementsByTagName('R').length -1 do begin showmessage(xmldoc.getElementsByTagName('R').item[i].text); end; xmldoc.getElementsByTagName('R').item[0].text := '10'; xmldoc.save('c:\dd.xml'); end;
msXml,ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
xmlDoc : IXMLDOMDocument;
xmlNode : IXMLDOMNode;
i : integer;
begin
xmlDoc:=IXMLDOMDocument(CreateOleObject('MSXML.DOMDocument'));
xmldoc.load('c:\dd.xml');
for i:= 0 to xmldoc.getElementsByTagName('R').length -1 do
begin
showmessage(xmldoc.getElementsByTagName('R').item[i].text);
end;
xmldoc.getElementsByTagName('R').item[0].text := '10';
xmldoc.save('c:\dd.xml');
end;
或者用你说的方法把XML文件导入到文本框内,直接修改也可以
或者就是用记事本进行编辑,来得更快
我想修改 XML 属性,比如
var
FNode: IXMLNode;
begin
FNode.XML := '<Budded Name = "Budded" Age = "23"/>'; // 我想这样做,但这是行不通的
end;