menampilkan data penjualan dari website yang menggunakan JSON object

program Project9jsonwriter;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.JSON.Types,
  System.JSON.Writers;

var
  Writer: TJsonTextWriter;
  StringWriter: TStringWriter;

begin
  StringWriter := TStringWriter.Create();
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.Indented;

  Writer.WriteStartObject;
  Writer.WritePropertyName('Transaction');
  Writer.WriteStartArray;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662713);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('John');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Doe');
  Writer.WritePropertyName('price');
  Writer.WriteValue(2.1);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662714);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('Anna');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Smith');
  Writer.WritePropertyName('price');
  Writer.WriteValue(4.5);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662715);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('Peter');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Jones');
  Writer.WritePropertyName('price');
  Writer.WriteValue(3.6);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteEndArray;
  Writer.WriteEndObject;

  WriteLn(StringWriter.ToString);

  readln;
   end.