Delphi Cookbook - Third Edition

How to do it...

Perform the following steps:

1. Create a new VCL Forms Application.
2. Drop four TButton and a TMemo on the form. Organize the TButton in a single row as a sort of toolbar and align the TMemo to cover the remaining part of the form.

3. Name the TButton components as follows:
   • btnObjToJSON
   • btnJSONtoObject
   • btnListToJSONArray
   • btnJSONArrayToList

4. Add a new unit to the project, name it JSON.Serializer.pas, and fill it in with the following code:

unit JSON.Serialization;interfaceuses  REST.JSON, System.Generics.Collections, Data.DBXJSON, System.JSON;type  TJSONUtils = class(TJSON)  public    class function ObjectsToJSONArray<T: class, constructor>      (AList: TObjectList<T>): TJSONArray;    class function JSONArrayToObjects<T: class, constructor ...