Pascal (Lazarus/Delphi)

Create XML with Multiple Same-Tag Children

See more XML Examples

Demonstrates how to create XML where siblings have the identical tags. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Xml;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  xml: TXml;

begin
  //  This example creates the following XML:

  //  <soap:Envelope>
  //      <soap:Body>
  //          <S:AlternatePartyIds>
  //              <S:Id>123456789</S:Id>
  //              <S:AssigningPartyId>NationalId</S:AssigningPartyId>
  //          </S:AlternatePartyIds>
  //          <S:AlternatePartyIds>
  //              <S:Id>987654</S:Id>
  //              <S:AssigningPartyId>DriversLicense</S:AssigningPartyId>
  //              <S:IssuingState>SD</S:IssuingState>
  //          </S:AlternatePartyIds>
  //      </soap:Body>
  //  </soap:Envelope>

  xml := TXml.Create;
  xml.Tag := 'soap:Envelope';
  xml.UpdateChildContent('soap:Body|S:AlternatePartyIds|S:Id','123456789');
  xml.UpdateChildContent('soap:Body|S:AlternatePartyIds|S:AssigningPartyId','NationalId');
  xml.UpdateChildContent('soap:Body|S:AlternatePartyIds[1]|S:Id','987654');
  xml.UpdateChildContent('soap:Body|S:AlternatePartyIds[1]|S:AssigningPartyId','DriversLicense');
  xml.UpdateChildContent('soap:Body|S:AlternatePartyIds[1]|S:IssuingState','SD');

  WriteLn(xml.GetXml());


  xml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.