<!DOCTYPE SCHEMA SYSTEM "YSFPCGLJK.dtd">我要写到XML文件里怎么写？急急急，在线等！！！谢谢

Question

<!DOCTYPE SCHEMA SYSTEM "YSFPCGLJK.dtd">我要写到XML文件里怎么写？急急急，在线等！！！谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TFileStream;
  xmls: TStrings;
begin
  xmls := TStringList.Create();
  try
    xmls.LoadFromFile('c:\aaa.xml');
    Stream := TFileStream.Create('c:\aaa.xml', fmCreate);
    try
      Stream.Write('<!DOCTYPE SCHEMA SYSTEM "YSFPCGLJK.dtd">'#13#10, length('<!DOCTYPE SCHEMA SYSTEM "YSFPCGLJK.dtd">'#13#10));
      xmls.SaveToStream(Stream);
    finally
      Stream.Free();
    end;
  finally
    xmls.Free();
  end;end;

Answer 2

XmlCmnt := XmlFile.DOMDocument.CreateComment(' DOCTYPE sourceFiles SYSTEM 'sss.dtd'');
XmlFile.DOMDocument.AppendChild(XmlCmnt);