Разбор XML в Delphi XE8

Привет, я новичок в программировании. Но мне нужно разобрать файл XML с помощью Delphi. Я нашел одну статью в этой статье, но не могу решить свой вопрос. У меня есть файл XML, как показано ниже. Мне нужно получить данные из Ccy, CcyNm_EN, Rate, date. Я не ленивый, но я не могу найти решение, потому что я новичок, пожалуйста, помогите мне решить это.

<CBU_Curr name="CBU Currency XML by ISO 4217">
 <CcyNtry ID="840">
  <Ccy>USD</Ccy>
  <CcyNm_RU>Доллар США</CcyNm_RU>
  <CcyNm_UZ>AQSh dollari</CcyNm_UZ>
  <CcyNm_UZC>АҚШ доллари</CcyNm_UZC>
  <CcyNm_EN>U.S. Dollar</CcyNm_EN>
  <CcyMnrUnts>2</CcyMnrUnts>
  <Nominal>1</Nominal>
  <Rate>2909.25</Rate>
  <date>11.05.2016</date>
 </CcyNtry>
</CBU_Curr>

xml delphi delphi-xe8
person Hayrulla Melibayev    schedule 16.05.2016    source источник
comment
Используйте синтаксический анализатор XML. Какой парсер вы хотите использовать? Вы прошли учебники для этого парсера?   -  person David Heffernan    schedule 16.05.2016
comment
stackoverflow.com/q/263419/62576   -  person Ken White    schedule 16.05.2016

Ответы (1)


arrow_upward
1
arrow_downward

Спасибо за всех. Я нашел правильный путь и написал свой код;

s1:='http://127.0.0.1/rates/USD/';
date1:=FormatDateTime('yyyy-mm-dd', dt1.Date);
XMLDocument1.LoadFromFile(s1 + date1 + '/');
XMLDocument1.Active := true;
Stock := XMLDocument1.DocumentElement.ChildNodes[0];
  Edit1.text := Stock.ChildNodes['Ccy'].Text;
  Edit2.text := Stock.ChildNodes['CcyNm_UZ'].Text;
  Edit3.text := Stock.ChildNodes['Rate'].Text;
  Edit4.text := Stock.ChildNodes['date'].Text;

Сток.Повторная синхронизация;

person Hayrulla Melibayev    schedule 16.05.2016
comment
Вы можете отредактировать свой вопрос, если хотите добавить больше деталей. Не злоупотребляйте ответами для этого - person Sir Rufo; 17.05.2016