在 FormCreate 事件中加入
procedure TForm1.FormCreate(Sender: TObject);
begin
with XMLDocument1.XML do
begin
Add('<?xml version="1.0" encoding="Big5"?>');
Add('<html lang="en">');
Add(' <head>');
Add(' <title>Extensible Markup Language (XML)</title>');
Add(' </head>');
Add(' <body>');
Add(' </body>');
Add('</html>');
end;
XMLDocument1.Active := True;
with XMLDocument1.DOMDocument do
begin
ShowMessage('tagName: ' + documentElement.tagName); // html
ShowMessage('Attribute lang: ' + documentElement.getAttribute('lang')); // en
with documentElement.firstChild.firstChild do
begin
ShowMessage('nodeName: ' + nodeName); // title
ShowMessage('nodeValue: ' + firstChild.nodeValue); // Extensible Markup Language (XML)
end;
end;
end;
沒有留言:
張貼留言