如何用filewrite函数生成换行的文件

Question

如何用filewrite函数生成换行的文件（下面）
<complexType> 
<sequence>
</sequence>
</complexType>

Answer 1

我的方法是下面的，但不换行。请大家根据我下面的改成换行的。谢谢！
var
   xmlStr:string;
   fp:integer;
begin
  xmlStr:='<?xml version="1.0" encoding="gb2312"?>';
  xmlStr:=xmlStr+'<schema>';
  xmlStr:=xmlStr+'<complexType name="user">';
  xmlStr:=xmlStr+'</complexType>';
  xmlStr:=xmlStr+'</schema>';
  fp:=filecreate('test1.xsd');
  filewrite(fp,xmlstr[1],length(xmlstr));    
  fileclose(fp);
end

Answer 2

var
   xmlStr:string;
   fp:integer;
begin
  xmlStr:='<?xml version="1.0" encoding="gb2312"?>';
  xmlStr:=xmlStr+ #13#10 + '<schema>';
  xmlStr:=xmlStr+ #13#10 + '<complexType name="user">';
  xmlStr:=xmlStr+ #13#10 + '</complexType>';
  xmlStr:=xmlStr+ #13#10 + '</schema>';
  fp:=filecreate('test1.xsd');
  filewrite(fp,xmlstr[1],length(xmlstr));    
  fileclose(fp);
end