Delphi加载XML

我在谷歌上搜索了一阵子,但找不到正确的例子

我有带节点的本地XML

我的项目中有一个表格：

编辑1 |提交

我希望在我的XML文件中为类别创建when user hits Submit childNode。 比如：

Cat名称（Edit1.Text）

编辑：

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

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

单击按钮时，程序应加载Project1.XML，找到

，并向其中添加childNode（

Edit1.Text

），因此，如果Edit1输入值等于“我的第一个类别”，则看起来是这样的：

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

我的第一次事业

---

我使用XE3。

也许像我这样的新手会发现这个解决方案非常有用：

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;

---

对一个模糊的问题，模糊的回答。通过使用，您可以编写。您好，我已经根据您的示例创建了一个过程，但出现了一个错误：找不到类Txmldocument。@user1804119编辑您的问题并包含代码的相关部分。“我有带节点的本地XML”什么也没说。此外，还将为我们提供输入、预期输出和任何错误。如果您得到任何组件的“未找到类”，请将光标放在其中，按Ctrl-F1，帮助将告诉您该组件是在哪个单元中声明的。然后把这个单位放在你的Uses子句中。我在主帖子上做了修改。现在应该清楚了。

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

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;