解决方法
实际上,尽管我上面的评论,我发现最简单的方法不是使用DeclareNamespace.
这是一个甚至在表单上都不使用TXMLDocument的示例.只需将xmldom,XMLIntf和XMLDoc添加到您的implementation uses子句(Xml的Xml.xmldom,Xml.XMLIntf和Xml.XMLDoc),然后这样就可以了：
procedure TForm1.Button1Click(Sender: TObject);
var
TheDoc: IXmlDocument;
iNode: IXmlNode;
xmlText: DOMString;
begin
TheDoc := NewXMLDocument;
TheDoc.Version := '1.0';
TheDoc.Encoding := 'UTF-16';
iNode := TheDoc.AddChild('test:test_file');
iNode.SetAttributeNS('xmlns:test','','http://www.foo.com' );
iNode.SetAttributeNS('xmlns:xsi','http://www.w3.org/2001/XMLSchema');
TheDoc.SaveToXML(xmlText);
Memo1.Lines.Text := xmlText;
end;
以上结果在TMemo中输出：
<?xml version="1.0" encoding="UTF-16"?> <test:test_file xmlns:test="http://www.foo.com" xmlns:xsi="http://www.w3.org/2001/XMLSchema"/>
