用Delphi如何读取XML接点的信息

Question

我现在想写一个函数，参数是一个XML文件的一个接点，
我想得到这个接点所有子接点和一些TEXT信息，
希望大家给点关键性的代码和提示。

Answer 1

procedure Tfrm_CellToXML.OpenXML(AXMLFileName:String);
var
  AReportNode:IXMLNode ;
  RootNode:IXMLNode ;
begin
  XMLDocument1 .LoadFromFile(AXMLFileName);
  AReportNode:=XMLDocument1 .DocumentElement .ChildNodes .First;  CellInfo :=TReportInfo  .Create(Owner ,AReportNode );
  ed_Name.Text :=CellInfo .ReportInfo_Name ;
  ed_Id .Text :=CellInfo .ReportInfo_ID ;
  ed_ISBN .Text :=CellInfo .ReportInfo_ISBN ;
  ed_CreateTime .Text :=DateTimeToStr(CellInfo .ReportInfo_CreateTime );
  ed_Type .Text  :=inttostr(CellInfo .ReportInfo_Type);
  ed_Owner .Text :=CellInfo .ReportInfo_Owner ;
  ed_Info .Text :=CellInfo .ReportInfo_Info ;end;