добрый день
я распарсил текст 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 | Пользуйтесь кнопкой "Код"! |
|