TXMLDocument

← →
Sw (2014-08-22 12:13) [0]

Уважаемые мастера, помогите, пожалуйста, по работе с xml-файлом.
<?xml version="1.0"?>
<Config xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<DB>User=xxx;Password=xxx;Database=xxx;DataSource=xxx;</DB>

var n,n1:IXMLNode; DS:string; begin XMLDocument1.FileName:="D:\test.xml"; XMLDocument1.Active:=true; Showmessage(XMLDocument1.XML.Text); n:=XMLDocument1.ChildNodes.FindNode("Config"); //имя секции n1:=n.ChildNodes.FindNode("DB"); //имя вложенной секции ShowMessage(n1.XML);

Мне нужно получить значение DataSource, например. Как атрибут это не работает...выходит, что типа функцией Pos по тексту....может есть другой способ?

← →
KilkennyCat © (2014-08-22 12:32) [1]

http://parsing-and-i.blogspot.ru/2008/08/xml-delphi.html

← →
Inovet © (2014-08-22 12:32) [2]

> [0] Sw (22.08.14 12:13)
> может есть другой способ?

TStringList
Delimiter поставить «;»
загрузить в DelimitedText
см. Values

← →
junglecat (2014-08-22 12:36) [3]

как-то так?

var SL: TStringList;

SL.Delimiter := ";";
SL.Text := n1.XML;
DS := SL.Values["DataSource"];

← →
Sw (2014-08-26 06:05) [4]

Ура! Получилось. Спасибочки.
SL:=TStringList.Create; SL.Delimiter := ";"; SL.DelimitedText := n1.XML; DS := SL.Values["DataSource"];

TXMLDocument Найти похожие ветки