在Delphi7中新建一个项目,然后点击菜单File-New-Other,选择XML data binding,按照向导提示加入指定的XSD文件,系统会自动生成一个声明有IXMLYlfwgs对象的单元文件。只要在项目文件中添加这个单元文件,就可以在程序中方便的使用IXMLYlfwgs对象。
利用生成的单元文件中GetXXX(XMLDOC)函数来创建对象,其中XXX为根节点名,XMLDOC是一个XMLDOCUMENT控件,然后对IXMLXXX对象进行赋值等操作,最后调用XMLDOC的SaveToFile过程保存XML文件,程序样例如下:
var x1 : IXMLYlfwgs;
//定义对象
x1 := getylfwgs(xmldoc1);
//创建对象并关联到XMLDOC1
x1.Jsf :=edit1.Text;
//为子节点赋值
……
……
xmldoc1.Encoding := 'GB2312';
//设定XML文件的字符集
xmldoc1.SaveToFile('aaa.xml');
//保存XML文件