1. unit Unit1;   

  2.   

  3. interface  

  4.   

  5. uses  

  6.    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   

  7.    Dialogs, XMLIntf, XMLDoc, StdCtrls;   

  8.   

  9. type  

  10.    TStudent = Class(TObject)   

  11.   public  

  12.      Name: string;   

  13.      Sex: string;   

  14.      Age: Integer;   

  15.      Phone: string;   

  16.   end;   

  17.    TForm1 = class(TForm)   

  18.      Button1: TButton;   

  19.     procedure FormCreate(Sender: TObject);   

  20.     procedure FormDestroy(Sender: TObject);   

  21.     procedure Button1Click(Sender: TObject);   

  22.   private  

  23.     { Private declarations }  

  24.      FXMLDoc: IXMLDocument;  // XML文档   

  25.      FDocElement: IXMLNode;  // 根节点   

  26.      FList: TList;   

  27.   public  

  28.     { Public declarations }  

  29.   end;   

  30.   

  31. var  

  32.    Form1: TForm1;   

  33.   

  34. implementation  

  35.   

  36. uses Student;   

  37.   

  38. {$R *.dfm}  

  39.   

  40. const  

  41.    XMLString =   

  42. '<?xml version="1.0" encoding="GB2312"?>' +   

  43. '<Students>' +   

  44. '     <Student Sex = "男">' +   

  45. '         <Name>文文</Name>' +   

  46. '         <Age>18</Age>' +   

  47. '         <Phone>4745723</Phone>' +   

  48. '     </Student>' +   

  49. '     <Student Sex = "女">' +   

  50. '         <Name>喃喃</Name>' +   

  51. '         <Age>17</Age>' +   

  52. '         <Phone>4644563</Phone>' +   

  53. '     </Student>' +   

  54. '</Students>';   

  55.   

  56. procedure TForm1.FormCreate(Sender: TObject);   

  57. begin  

  58.    FXMLDoc := TXMLDocument.Create(nil);   

  59.    FXMLDoc.XML.Text := XMLString;   

  60.    FXMLDoc.Active := True;   

  61.    FList := TList.Create;   

  62.    FDocElement := FXMLDoc.DocumentElement;   

  63. end;   

  64.   

  65. procedure TForm1.FormDestroy(Sender: TObject);   

  66. var  

  67.    i: Integer;   

  68. begin  

  69.    FXMLDoc.Active := False;   

  70.   for i := 0 to Flist.Count - 1 do  

  71.      TStudent(FList.Items[i]).Free;   

  72.    FList.Free;   

  73. end;   

  74.   

  75. procedure TForm1.Button1Click(Sender: TObject);   

  76. var  

  77.    i: Integer;   

  78.    Stu: TStudent;   

  79.    StuNode: IXMLNode;   

  80. begin  

  81.   for i := 0 to FDocElement.ChildNodes.Count - 1 do  

  82.   begin  

  83.      StuNode := FDocElement.ChildNodes[i];   

  84.      Stu := TStudent.Create;   

  85.      Stu.Name := StuNode.ChildValues['Name'];   

  86.      Stu.Sex := StuNode.Attributes['Sex'];   

  87.      Stu.Age := StuNode.ChildValues['Age'];   

  88.      Stu.Phone := StuNode.ChildValues['Phone'];   

  89.      FList.Add(Stu);   

  90.   end;   

  91. end;   

  92.   

  93. end.