Delphi下使用XMLDocument控件结合XSL转换XML

上网查了N久，Delphi下将XML利用XSL转换成XML，一般都使用了DOM接口，经过试验，其实有一种简单的转换方式，就是使用XMLDocument控件：

1、创建两个XMLDocument实例，分别命名为xmldoc和xsldoc

2、利用LoadFromFile函数分别载入被转换的xml文件和xsl文件

3、转换函数如下：

function transformxml(xmlfile: string; xslfile: string): WideString;
begin
    xmldoc.LoadFromFile(xmlfile);
    xsldoc.LoadFromFile(xslfile);
    xmldoc.DocumentElement.TransformNode(xsldoc.DocumentElement, result);

end;

函数返回值为转换之后生成的源码