Delphi XML添加节点

编程问答 2022-06-11

问题描述

我对将设置写入xml文件有疑问。

我正在使用Delphi应用程序从XML文件读取一些数据，如下所示：

    procedure TMainForm.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      Doc := LoadXMLDocument('Programs.xml');
      Data := Doc.DocumentElement;
      NumberOfFilestocheck:=Data.ChildNodes.Count-1;
      for i := 0 to NumberOfFilestocheck do
      begin
        Node:=Data.ChildNodes[i];
        SourceFileName[i]:=Node.ChildNodes['file'].Text;
        SourceDir[i]:=Node.ChildNodes['dir'].Text;
        SourceDirOrFile[i]:=Node.ChildNodes['dirfile'].Text;
        SourceName[i]:=Node.ChildNodes['name'].Text;
   ...
      end;

XML看起来像这样：

<data>
<program>
    <file>C:\Users\marcelS\Desktop\Software\MRS\MCUMini\CAN_IO_G_MCUMini_v3.1\user_code.c</file>
    <dir>C:\Users\marcelS\Desktop\Software\Versiebeheer\MRS\MCUMini\</dir>
    <dirfile>dir</dirfile>
    <name>MCUMini_v3.1</name>
</program>
<program>
 <file>C:\Users\marcelS\Desktop\Software\MRS\ControlRPM\CAN_IO_G_Control_RPM_v1.3_0001\user_code.c</file>
    <dir>C:\Users\marcelS\Desktop\Software\Versiebeheer\MRS\Control RPM\</dir>
    <dirfile>dir</dirfile>
    <name>ControlRPM_v1.3</name>
</program>
</data>

现在，我希望能够将新的“程序”添加到xml并保存。我做了一些编辑框，可以在其中写入新数据。 我不确定该怎么做。 有人可以举一个简短的例子吗？ 我在互联网上找不到据我所知的...

提前谢谢！

马塞尔

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphieditsavexmlxmlxmlxmlxmlxml