xml - Delphi加载XML

Question

我已经搜寻了一段时间，但找不到合适的例子。

我有本地XML与Node

我的项目中有一个表单：

编辑1 |提交

我希望在用户点击“提交子节点”时在我的XML文件中创建类别。
喜欢：

<categories>
<cat1>Name of Cat(Edit1.Text)</cat1>
</categories>

编辑：

我的.exe目录（/Win32/Debug/Project1.XML）中有Project1.XML文件：

<Kategorijos>
</Kategorijos>

在我的表单中有一个输入字段（Edit1）和一个按钮（Button1）

单击按钮时，程序应加载Project1.XML，找到 <Kategorijos>并向其添加childNode（ <cat1>Edit1.Text</cat1>），因此如果Edit1输入值等于“我的第一类”，则看起来像这样：

<Kategorijos>
   <cat1>My first caregory</cat1> 
</Kategorijos>

我使用XE3。

Answer 1

也许像我这样的新手会发现我最终发现有用的解决方案：

procedure Tform1.addCat (kategorija : string);
var
  Doc: IXMLDocument;
  data: IXMLNode;
  xmlNode : IXMLNode;
  newCat : IXMLNode;
begin
  Doc := LoadXMLDocument('Project1.XML');
  data := Doc.DocumentElement;
  xmlNode := data.ChildNodes.FindNode('Kategorijos');
  newCat := xmlNode.AddChild('cat1');
  newCat.Text := kategorija;
  Doc.SaveToFile('Project1.XML');
end;