(Delphi) XML Parsing Example: Currency Data

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

Download Chilkat XML ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: CHILKATXMLLib_TLB.IChilkatXml;
success: Integer;
curr: CHILKATXMLLib_TLB.IChilkatXml;
n: Integer;
i: Integer;

begin

xml := TChilkatXml.Create(Self).ControlInterface;

//  The Chilkat XML component is freeware.

//  Load an XML document.
//  This file is available at http://www.chilkatsoft.com/testData/currency.xml

success := xml.LoadXmlFile('c:/myXmlFiles/currency.xml');
if (success <> 1) then
  begin
    Memo1.Lines.Add(xml.LastErrorText);
    Exit;
  end;

//  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;