XML不是以文件形式保存在硬盘里,而是以下面字符串表示:var
textXml:string;
begin
textXml := '';
textXml := "<?xml version='1.0' encoding='gb2312'?>";
textXml := textXml + "<note>";
textXml := textXml +
"<item fields='zh'><title>字号</title><type>string</type></item>" +
"<item fields='bt'><title>标题</title><type>string</type></item>";
textXml := textXml + "</note>";
end;现在form1有个XML组件XMLDocument1。
如果XML以文件形式保存在硬盘里,则
XMLDocument1.FileName:=d:\test.xml';
XMLDocument1.Active := True;现在XML不是以文件形式保存在硬盘里
请问:XMLDocument1怎样读上面的XML字符串,以操作XML。
textXml:string;
begin
textXml := '';
textXml := "<?xml version='1.0' encoding='gb2312'?>";
textXml := textXml + "<note>";
textXml := textXml +
"<item fields='zh'><title>字号</title><type>string</type></item>" +
"<item fields='bt'><title>标题</title><type>string</type></item>";
textXml := textXml + "</note>";
end;现在form1有个XML组件XMLDocument1。
如果XML以文件形式保存在硬盘里,则
XMLDocument1.FileName:=d:\test.xml';
XMLDocument1.Active := True;现在XML不是以文件形式保存在硬盘里
请问:XMLDocument1怎样读上面的XML字符串,以操作XML。
begin
if XMLDocument1.DocumentElement.ChildNodes.FindNode(XmlNodeStr)<>nil then
ReadFrXML := XMLDocument1.DocumentElement.ChildNodes[XmlNodeStr].ChildValues['title'];end;
XMLDoc.Active:=false;
XMLDoc.LoadFromXML(s);
XMLDoc.Active:=true;用XMLDocument的LoadFromXML方法!http://lysoft.7u7.net