关于保存xml文件的小问题。

Question

如果我有一个变量
var SendResult string;怎么才能将
SendResult中的值保存成xml文件的形式？

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
    node:IXMLNode;
    SendResult:string;
begin
  XMLDocument1.Active:=True;
  node:=XMLDocument1.DocumentElement;
  if node.NodeName='File' then
  begin
    for i:=0 to node.ChildNodes.Count-1 do
    begin
      node.ChildNodes[i].Text:=SendResult;
    end;
  end;
  XMLDocument1.SaveToFile('aa.xml');
end;
这样给每一个节点赋值了.你可以单独只给一个节点赋值.

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
    node:IXMLNode;
    SendResult:string;
begin
  XMLDocument1.Active:=True;
  node:=XMLDocument1.DocumentElement;
  if node.NodeName='File' then//到这的时候出错啊。
  begin
    for i:=0 to node.ChildNodes.Count-1 do
    begin
      node.ChildNodes[i].Text:=SendResult;
    end;
  end;
  XMLDocument1.SaveToFile('aa.xml');
end;