XML Parsing Example: Currency Data

Simple example showing how to parse an XML file containing currency data.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml0: ERROR;
xml: ERROR;
curr: ERROR;
n: Integer;
i: Integer;

begin
xml0 := ERROR;

//  The Chilkat XML component is freeware.

//  Load an XML document.  Typically you might call LoadXml
//  to load an XML file.  This example loads an XML file from
//  a URL:
xml := xml0.HttpGet('http://www.chilkatsoft.com/testData/currency.xml');

//  Iterate over each "CURRENCY" child node and display the contents:

n := xml.NumChildrenHavingTag('CURRENCY');
for i := 0 to n - 1 do
  begin
    curr := xml.GetNthChildWithTag('CURRENCY',i);
    Memo1.Lines.Add('----');
    Memo1.Lines.Add('Name: ' + curr.GetChildContent('NAME'));
    Memo1.Lines.Add('Code: ' + curr.GetChildContent('CURRENCYCODE'));
    Memo1.Lines.Add('Country: ' + curr.GetChildContent('COUNTRY'));

  end;


end;