文档章节

NativeXml (4):认识根节点

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 188
阅读 6
收藏 0

uses NativeXml;

const
  xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件

var
  xml: TNativeXml;

procedure TForm1.FormCreate(Sender: TObject);
begin
  xml := TNativeXml.Create(nil);
  xml.LoadFromFile(xmlFile);
end;

{获取根节点的类名及类的继承关系}
procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  myClass: TClass;
begin
  ShowMessage(xml.Root.ClassName); //TsdElement

  str := '';
  myClass := xml.Root.ClassType;
  while myClass <> nil do
  begin
    if str <> '' then str := ' > ' + str;
    str := myClass.ClassName + str;
    myClass := myClass.ClassParent;
  end;
  ShowMessage(str); //TObject > TPersistent > TDebugPersistent > TXmlNode > TsdContainerNode > TsdElement
end;

{根节点的名称与内容}
procedure TForm1.Button2Click(Sender: TObject);
var
  root: TsdElement;
begin
  root := xml.Root;
  ShowMessage(root.Name);            //名称
  ShowMessage(root.ElementTypeName); //类型名称
  ShowMessage(root.WriteToString);   //内容
end;

{其子成员}
procedure TForm1.Button3Click(Sender: TObject);
var
  root: TsdElement;
  i: Integer;
begin
  root := xml.Root;
  ShowMessage(IntToStr(root.AttributeCount)); //属性总数
  ShowMessage(IntToStr(root.NodeCount));      //子节点数目

  Memo1.Clear;
  for i := 0 to root.NodeCount - 1 do //遍历子节点
  begin
    Memo1.Lines.Add(root[i].Name + #9 + root[i].Value); // root[i] = root.Nodes[i]
  end;
end;

本文转载自:http://www.cnblogs.com/del/archive/2011/03/24/1994029.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
【计算机本科补全计划】图的连通性check by 并查集Union Find

正文之前 前几天苦练图论,虽然还不算登堂入室?但是好歹还是懂了好几个概念,今天就讲讲我最开始认识的一个,很棒的检查图的连通性的算法--并查集!!! 正文 具体的想法来自一篇写的超好的...

HustWolf
2017/12/03
0
0
初探数据结构之“树”的定义和二叉树定义及性质

这周学习了数据结构中的树,看了郝斌的数据结构视频。。。虽然讲的很浅很浅但是对于我这么笨的人来说刚好能看懂。又通过小组学姐的讲解对树有了一个初步的认识,现在将学到的知识总结一下=、...

Jung_zhang
2015/08/02
0
0
面试还在被红-黑树虐?看完这篇动图文章轻松反虐面试官

        网上有很多红-黑树的段子,很多人都说,红-黑树只会存在于段子里,不会在面试中或者实际项目中让你实现。来看看网友都是怎么说的:      通常,如果有面试官问我红黑数这种...

java进阶架构师
2018/11/02
0
0
数据结构与算法(3)——树(二叉、二叉搜索树)

前言:题图无关,现在开始来学习学习树相关的知识 前序文章: 数据结构与算法(1)——数组与链表(https://www.jianshu.com/p/7b93b3570875) 数据结构与算法(2)——栈和队列(https://www.ji...

我没有三颗心脏
2018/07/11
0
0
重温数据结构:理解 B 树、B+ 树特点及使用场景

读完本文你将了解: 大家好,前面那篇文章《3 分钟理解完全二叉树、平衡二叉树、二叉查找树》中我们了解了几种特殊的二叉树的功能及特点,知道了它们在进行查找数据时可以提高效率,但需要注...

u011240877
2018/05/29
0
0

没有更多内容

加载失败,请刷新页面

加载更多

dotConnect for Oracle入门指南(六):使用事务

【下载dotConnect for Oracle最新版本】 dotConnect for Oracle(原名OraDirect.NET)建立在ADO.NET技术上,为基于Oracle数据库的应用程序提供完整的解决方案。它为设计应用程序结构带来了新的...

电池盒
9分钟前
0
0
Spring Batch JSR-305 支持

本发布版本中为 JSR-305 支持添加了一个注解。这个为了与 Spring 框架中的 Null-safety 注解取得平衡,然后为 Spring Batch 添加为 public APIs。 这个注解不仅仅在使用 Spring Batch APIs ...

honeymoose
9分钟前
0
0
React Native工程中TSLint静态检查工具的探索之路

背景 建立的代码规范没人遵守,项目中遍地风格迥异的代码,你会不会抓狂? 通过测试用例的程序还会出现Bug,而原因仅仅是自己犯下的低级错误,你会不会抓狂? 某种代码写法存在问题导致崩溃时...

美团技术团队
11分钟前
0
0
mysql update select

在遇到需要update设置的参数来自从其他表select出的结果时,需要把update和select结合使用,不同数据库支持的形式不一样,在mysql中如下: update A inner join(select id,name from B) c on A.i...

张欢19933
15分钟前
0
0
KaliLinuxNetHunter教程刷入第三方Recovery与开始刷机

KaliLinuxNetHunter教程刷入第三方Recovery与开始刷机 2.刷入第三方Recovery(即TWRP) TWRP(TeamWin Recovery Project)是一款XDA大神开发的一款全触屏操作的第三方Recovery。支持滑动确认...

大学霸
18分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部