Форум: "Начинающим";
Текущий архив: 2016.03.06;
Скачать: [xml.tar.bz2];

Вниз

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 поставить &laquo;;&raquo;
загрузить в 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"];


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2016.03.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.001 c