<?xml version="1.0" encoding="UTF-8"?>
<Student>
<name>zhang</name>
<age>21</age>
</Student>
uses XMLDoc;
procedure TForm1.Button1Click(Sender: TObject);
var
a: TXMLDocument;
b:string;
begin
a:=TXMLDocument.Create(self);
a.FileName:='D:\Student.xml';
a.Active:=true;
// b:=a.DocumentElement.ChildNodes['Student'].ChildNodes['name'].Text;
b:=a.DocumentElement.ChildNodes['name'].Text;
showmessage(b);
edit1.text:=b;
a.Free;
end;
