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;
大家好,我是编程新手。 但我必须使用 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;