0

我尝试填充 Xml 文件的节点。我编写了一个辅助类来写入/读取我的应用程序生成的 xml 文件。构造函数创建下一个 xml 结构:

<raiz>
  <proyecto>
    <obra>Shopping</obra>
    <cliente>Pepito</cliente>
    <ubicacion>NO 24° S 32°</ubicacion>
    <fecha>08/07/2013</fecha>
    <sondeo>4</sondeo>
    <estudio>21</estudio>
    <nFreatico>3,52</nFreatico>
  </proyecto>
  <muestras/>
  <enps/>
</raiz>

这工作正常。现在,我尝试将子节点添加到muestras节点。muestra子节点的示例:

<muestra numero=1 />

我的助手类有agregarMuestra(nro: integer); 方法,那就是尝试插入子节点。代码是:

procedure TXmlManager.agregarMuestra(nro: Integer);
var
  sMuestras, nNodo: IXMLNode;
  count: integer;
begin
  // Get the "muestra" node 
  sMuestras := self.getMuestraSection();
  // Insert the new node 
  count := sMuestras.ChildNodes.Count;
  nNodo := sMuestras.AddChild('muestra',count);
  nNodo.Attributes['numero'] := IntToStr(nro);
  xmLastModification := Now();
end;

应用程序在执行时失败,并在帖子标题中显示消息。调试器突出显示该行:

  nNodo.Attributes['numero'] := IntToStr(nro);

我最新的 Xml 工作。发生什么事 ?。有任何想法吗 ?。

4

0 回答 0