XML 在 Delphi XE8 中解析

XML parsing in Delphi XE8

大家好,我是编程新手。 但我必须使用 Delphi 解析 XML 文件。 我找到了一篇关于此 article 的文章,但我无法解决我的问题。 我有一个如下所示的 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>

谢谢大家。 我找到了正确的方法并编写了代码;

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;

Stock.Resync;