VPF::Xml вывод циклом его содержимое

Anatoliy19

Дата 20.11.2011, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 19.11.2011

Репутация: нет
Всего: нет

добрый день
я распарсил текст xml документа но я не понимаю как в цикле вывести их, например, в LIstBox

Код


procedure TForm1.btn1Click(Sender: TObject);
var i: Integer;
begin
xmldcmnt1.Active := true;
xmldcmnt1.LoadFromFile(ExtractFileP ath(Application.ExeName) + '1.xml');
i:=1 to xmldcmnt1.DocumentElement.ChildNode s[1]
edt1.Text := VarToStr(xmldcmnt1.DocumentElement. ChildNodes[0].ChildNodes['serverid'].text); {это из первого уровня}
edt2.Text := VarToStr(xmldcmnt1.DocumentElement. ChildNodes[1].ChildNodes[0].ChildNodes['phish_id'].text); { второй уровень}
edt3.Text := VarToStr(xmldcmnt1.DocumentElement. ChildNodes[2].ChildNodes['author'].text); {3 уровень}
xmldcmnt1.Active := false;
end;

если надо вот код xml документа:

Код


<?xml version="1.0" encoding="utf-8"?>
<response>
<meta>
<timestamp>2010-03-21T10:34:35+00:00</timestamp>
<serverid>ebb667fe</serverid>
<requestid>192.168.0.105.4ba5f63b8e 49c7.34267757</requestid>
</meta>
<results>
<url0>
<url><![CDATA[http://www.cheapukadds.co.uk/images/SARS/Nedbank/index.html]]></url>
<in_database>true</in_database>
<phish_id>948253</phish_id>
<phish_detail_page><![CDATA[http://www.phishtank.com/phish_detail.php?phish_id=948253]]></phish_detail_page>
<verified>true</verified>
<verified_at>2010-03-20T10:35:52+00:00</verified_at>
<valid>true</valid>
</url0>
</results>
<Inventory>
<author>Иванов</author >
</Inventory>
</response>

M
MetalFan

Пользуйтесь кнопкой "Код"!

Это сообщение отредактировал(а) MetalFan - 20.11.2011, 20:58

Akella

Дата 20.11.2011, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

А что, тэгами (кнопкой) КОД современные программисты не умеют пользоваться?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »