(1)procedure tform1.button2click(sender: tobject);
begin 【程序编程相关:Boost源码剖析之:泛型函数指针类bo】var xmldoc:ixmldocument; anode:ixmlnode; 【推荐阅读:什么是非正常】? xmldoc.active := true; 【扩展信息:DataGuard - ORA-0026】? xmldoc := txmldocument.create(nil);? xmldoc.version := ´1.0´;? xmldoc.encoding :=´gb2312´;? try ??? //加入根结点??? anode:=xmldoc.addchild(´bootdocnode´);??? //加入子结点??? anode:=anode.addchild(´chilenode1´);??? //设置接点属性??? anode.setattribute(´id´, ´22´);??? anode.setattribute(´units´, ´元/m2´);??? anode.setattribute(´url´, ´http://url.c´);??? //设置结点内容??? anode.text := ´结点内容´;??? //子结点添加子结点??? anode:=anode.addchild(´child_chilenode1´... 下一页