NativeXml (5)：事件

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, NativeXml{!};type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Memo1: TMemo;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    procedure XmlEvent(Sender: TObject; ANode: TXmlNode); //TsdXmlNodeEvent 事件  public  end;var  Form1: TForm1;implementation{$R *.dfm}const  xmlFile = 'C:\Temp\xml_test_files\CDATA_section.xml'; //測試檔案{測試 OnNodeNew 事件：開始載入節點時發生}procedure TForm1.Button1Click(Sender: TObject);var  xml: TNativeXml;begin  Memo1.Clear;  xml := TNativeXml.Create(nil);  xml.OnNodeNew := XmlEvent;  xml.LoadFromFile(xmlFile);  xml.Free;end;{測試 OnNodeLoaded 事件：節點載入完成時發生}procedure TForm1.Button2Click(Sender: TObject);var  xml: TNativeXml;begin  Memo1.Clear;  xml := TNativeXml.Create(nil);  xml.OnNodeLoaded := XmlEvent;  xml.LoadFromFile(xmlFile);  xml.Free;end;{將被調用的事件, OnNodeNew 和 OnNodeLoaded 事件的參數格式是一樣的}procedure TForm1.XmlEvent(Sender: TObject; ANode: TXmlNode);var  depth: string;begin  if ANode.ElementType = xeElement then         //xeElement 是 TsdElementType 枚舉的類型之一  begin    depth := StringOfChar(#9, ANode.TreeDepth); //TreeDepth 是節點深度    Memo1.Lines.Add(depth + ANode.Name);  end;end;end.