Building an XML Document

Demonstrates how to build the following XML document:

<accrep:AccidentReport>
  <accrep:VehicleSection>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>1</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Doe</accrep:Last>
        <accrep:Middle>Robert</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>John</accrep:First>
          <accrep:Last>Doe, Jr.</accrep:Last>
          <accrep:Middle>Robert</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Sally</accrep:First>
          <accrep:Last>Doe</accrep:Last>
          <accrep:Middle>Crystal</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
    <accrep:Vehicle>
      <accrep:DriverOrPedestrian>D</accrep:DriverOrPedestrian>
      <accrep:Number>2</accrep:Number>
      <accrep:Name>
        <accrep:First>John</accrep:First>
        <accrep:Last>Public</accrep:Last>
        <accrep:Middle>Q</accrep:Middle>
      </accrep:Name>
      <accrep:Passengers>
        <accrep:Name>
          <accrep:First>Billy</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Bob</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
      <accrep:Passengers>
	  <accrep:Name>
          <accrep:First>Kelly</accrep:First>
          <accrep:Last>Public</accrep:Last>
          <accrep:Middle>Emily</accrep:Middle>
        </accrep:Name>
      </accrep:Passengers>
    </accrep:Vehicle>
  </accrep:VehicleSection>
</accrep:AccidentReport>

Download Chilkat XML ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml1: CHILKATXMLLib_TLB.IChilkatXml;
xml2: CHILKATXMLLib_TLB.IChilkatXml;
xml3: CHILKATXMLLib_TLB.IChilkatXml;
xml6: CHILKATXMLLib_TLB.IChilkatXml;
xml10: CHILKATXMLLib_TLB.IChilkatXml;
xml11: CHILKATXMLLib_TLB.IChilkatXml;
xml15: CHILKATXMLLib_TLB.IChilkatXml;
xml16: CHILKATXMLLib_TLB.IChilkatXml;
xml20: CHILKATXMLLib_TLB.IChilkatXml;
xml23: CHILKATXMLLib_TLB.IChilkatXml;
xml27: CHILKATXMLLib_TLB.IChilkatXml;
xml28: CHILKATXMLLib_TLB.IChilkatXml;
xml32: CHILKATXMLLib_TLB.IChilkatXml;
xml33: CHILKATXMLLib_TLB.IChilkatXml;

begin
xml1 := TChilkatXml.Create(Self).ControlInterface;
xml1.Tag := 'accrep:AccidentReport';

xml2 := xml1.NewChild('accrep:VehicleSection','');

xml3 := xml2.NewChild('accrep:Vehicle','');
xml3.NewChild2('accrep:DriverOrPedestrian','D');
xml3.NewChild2('accrep:Number','1');

xml6 := xml3.NewChild('accrep:Name','');
xml6.NewChild2('accrep:First','John');
xml6.NewChild2('accrep:Last','Doe');
xml6.NewChild2('accrep:Middle','Robert');

xml10 := xml3.NewChild('accrep:Passengers','');

xml11 := xml10.NewChild('accrep:Name','');
xml11.NewChild2('accrep:First','John');
xml11.NewChild2('accrep:Last','Doe, Jr.');
xml11.NewChild2('accrep:Middle','Robert');

xml15 := xml3.NewChild('accrep:Passengers','');

xml16 := xml15.NewChild('accrep:Name','');
xml16.NewChild2('accrep:First','Sally');
xml16.NewChild2('accrep:Last','Doe');
xml16.NewChild2('accrep:Middle','Crystal');

xml20 := xml2.NewChild('accrep:Vehicle','');
xml20.NewChild2('accrep:DriverOrPedestrian','D');
xml20.NewChild2('accrep:Number','2');

xml23 := xml20.NewChild('accrep:Name','');
xml23.NewChild2('accrep:First','John');
xml23.NewChild2('accrep:Last','Public');
xml23.NewChild2('accrep:Middle','Q');

xml27 := xml20.NewChild('accrep:Passengers','');

xml28 := xml27.NewChild('accrep:Name','');
xml28.NewChild2('accrep:First','Billy');
xml28.NewChild2('accrep:Last','Public');
xml28.NewChild2('accrep:Middle','Bob');

xml32 := xml20.NewChild('accrep:Passengers','');

xml33 := xml32.NewChild('accrep:Name','');
xml33.NewChild2('accrep:First','Kelly');
xml33.NewChild2('accrep:Last','Public');
xml33.NewChild2('accrep:Middle','Emily');

//  Display the XML:
Memo1.Lines.Add(xml1.GetXml());


end;