我尝试填充 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 工作。发生什么事 ?。有任何想法吗 ?。