我尝试填充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;
应用程序在执行时失败,并在帖子标题中显示消息。而debuger突出了这条线:
nNodo.Attributes['numero'] := IntToStr(nro);
我最新的Xml工作。发生什么事 ?。有什么想法?。