如果我逐行构建 XML,我可以设置编码,但是当我从文件加载它时,我无法添加编码。看:
procedure TForm1.Button1Click(Sender: TObject);
var
x : TXMLDocument;
s : string;
w : WIdeString;
begin
s := '<?xml version="1.0"?><a><b/></a>';
x := TXMLDocument.Create(Self);
x.XML.Text := s;
x.Active := True;
x.Encoding := 'UTF-8';
x.DocumentElement.childNodes['b'].attributes['x'] := '1';
x.SaveToXML(w);
ShowMessage(w);
end;
有趣的是结果中缺少“编码”部分!
如何使结果包含 XML 编码?