Delphi 中的 XMLDocument 类详解(9) - 关于 HasChildNodes 与 IsTextElement

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm1 = class(TForm) XMLDocument1: TXMLDocument; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //打开 procedure TForm1.FormCreate(Sender: TObject); begin XMLDocument1.LoadFromFile('c:\temp\test.xml'); {必须用万一提供的 xml 测试文件, 才能有相同的返回值} end; //HasChildNodes: 判断是否包含子节点 procedure TForm1.Button1Click(Sender: TObject); var node: IXMLNode; b: Boolean; begin {我们从例子中拿出一个节点, 譬如根节点下的第一个节点: <人员 职务="科长" 备注="正局级"> unit Unit1; interface uses Windows, Messages, S