通用嘛,
do
c := TXMLDocument.Create(nil);
do
c.Active :=true;
do
c.Encoding := 'gb2312';
node :=do
c.AddChild('期初数');
node := ANode.AddChild('期初数表');
nr_node := node.AddChild('域编码链');
nr_node.Text := dm_bml;
nr_Node := Node.AddChild('结算项目编码');
nr_Node.text := jsxm_bm;
nr_Node := Node.AddChild('余额方向');
nr_Node.text := IntToStr(yefx);
if (flys <> nil) then
begin
flys.WriteToXML(Node);
end;
nr_node := node.AddChild('借方累计');
nr_node.Text := FloatToStr(jflj);
nr_node := node.AddChild('贷方累计');
nr_node.Text := FloatToStr(dflj);
nr_node := node.AddChild('金额');
nr_node.Text := FloatToStr(je);