| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TXMLDocument [D7, XP]
Sw © (2014-08-22 12:13:00)Уважаемые мастера, помогите, пожалуйста, по работе с 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 по тексту....может есть другой способ?
Sw (2014-08-26 06:05:00) [1]Ура! Получилось. Спасибочки.
SL:=TStringList.Create;
SL.Delimiter := ';';
SL.DelimitedText := n1.XML;
DS := SL.Values['DataSource'];
junglecat (2014-08-22 12:36:00) [2]как-то так?
var SL: TStringList;
SL.Delimiter := ';';
SL.Text := n1.XML;
DS := SL.Values['DataSource'];
KilkennyCat (2014-08-22 12:32:00) [3]http://parsing-and-i.blogspot.ru/2008/08/xml-delphi.html
Inovet (2014-08-22 12:32:00) [4]> [0] Sw (22.08.14 12:13)
> может есть другой способ?
TStringList
Delimiter поставить «;»
загрузить в DelimitedText
см. Values
| |
