跪求XML问题

Question

我想用DELPHI写 XML声明部分<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" attributeFormDefault="unqualified">，怎么写

Answer 1

最省事的办法：
把
<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" attributeFormDefault="unqualified">放到一个TMemo控件中（名为Memo1），需要时：使用 Memo1.Text 即可取出来。
其实用String类型的变量保存也没有问题啊：var
  aHeader:String;
begin
  aHeader:='<?xml version="1.0" encoding="UTF-8"?>';
  aHeader:=aHeader+'<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" ';
  aHeader:=aHeader+'elementFormDefault="qualified" ';
  aHeader:=aHeader+'attributeFormDefault="unqualified">'
  //到此，字符串变量aHeader中所存储的即为XML的头了。
  //不能一次写在一行，因为每行Delphi代码的长度不能超过255字节。
end;

Answer 2

楼上方法，虽然是写出来生成了，但生的文件编码不是真正utf-8最根本的方法是用MSXML这类组件来生成和使用

Answer 3

var                                                   //XML档
  xmlDoc :IXMLDocument;
  RootNode, TAXPAYERSNode, TAXPAYERNode :IXMLNode;
  Directory :String;
begin
  xmlDoc:=TXMLDocument.Create(nil);
  try
    xmlDoc.Active:=True;
    xmlDoc.Version:='1.0';
    xmlDoc.Encoding:='UTF-8';
    RootNode:=xmlDoc.AddChild('xs');
    RootNode.SetAttributeNS('elementFormDefault', '', 'XXXXX');
    RootNode.SetAttributeNS('attributeFormDefault', '', 'XXXXX');
    xmlDoc.SaveToFile('RZ.xml');
  finally
    xmlDoc:=nil;
  end;
end;

Answer 4

又来你的ini了 -_-||| 老兄不要把xml看的太扁，xml是有好处的，光批判是没有进步的