unit CollectionObjects;

interface

type
  TPerson = class
  private
    FAge: Integer;
    FLastName: string;
    FFirstName: string;
  public
    constructor Create(const FirstName, LastName: String; Age: Integer);
    property FirstName: string read FFirstName write FFirstName;
    property LastName: string read FLastName write FLastName;
    property Age: Integer read FAge write FAge;
  end;

implementation

{ TPerson }

constructor TPerson.Create(const FirstName, LastName: String; Age: Integer);
begin
  FFirstName := FirstName;
  FLastName := LastName;
  FAge := Age;
end;

fMyPeople: TObjectList<TPerson>;

fMyPeople := TObjectList<TPerson>.Create(True);

// The individual TPerson objects
fMyPeople.Add(TPerson.Create('Gomez', 'Addams', 40));
fMyPeople.Add(TPerson.Create('Morticia', 'Addams', 38));
fMyPeople.Add(TPerson.Create('Pugsley', 'Addams', 8));
fMyPeople.Add(TPerson.Create('Wednesday', 'Addams', 12));



// Use TObjectBindSourceAdapter for a single object
ABindSourceAdapter := TListBindSourceAdapter<TPerson>.Create(Self, FMyPeople, True);

function PrettyJSON(AJson: String): String;
begin
Result := StringReplace(AJson, '},', '},' + sLineBreak, [rfReplaceAll]);
Result := StringReplace(Result, '[{', '[' + sLineBreak + '{', [rfReplaceAll]);
end;

procedure TABSMainForm.JsonToObjects;
var
NewPeople: TObjectList<TPerson>;
begin
NewPeople := TJson.JsonToObject<TObjectList<TPerson>>(Memo1.Text);
fMyPeople.Clear;
fMyPeople.AddRange(NewPeople.ToArray);
end;

procedure TABSMainForm.ObjectsToJson;
begin
Memo1.Text := PrettyJSON(TJson.ObjectToJsonString(fMyPeople));
end;

{"ownsObjects":true,"listHelper":[9],"items":[
{"age":40,"lastName":"Addams","firstName":"Gomez"},
{"age":38,"lastName":"Addams","firstName":"Morticia"},
{"age":8,"lastName":"Addams","firstName":"Pugsley"},
{"age":12,"lastName":"Addams","firstName":"Wednesday"},
{"age":55,"lastName":"Fester","firstName":"Uncle"},
{"age":72,"lastName":"Frump","firstName":"Grandmama"},
{"age":50,"lastName":"Lurch","firstName":""},
{"age":99,"lastName":"Thing","firstName":"Thing T."},
{"age":21,"lastName":"Itt","firstName":"Cousin"},
null,null,null,null,null,null,null]}

First declare with Pascal to use the converter and generics.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    
////
unit Unit2;
 
interface
uses
  System.JSON.Converters, System.JSON.Serializers, System.Generics.Collections;
type
  TListString = TList＜String＞;
  TDictionaryStrStr = class(TDictionary＜String, String＞)
    constructor Create; overload;
 
  end;
  TTJsonListConverterString = TJsonListConverter＜String＞;
  TJsonDictionaryConverterStrStr = class(TJsonStringDictionaryConverter＜String＞)
  end;

This is because the use of generics in C++Builder. C++Builder used Win64.
1
2
3
4
5
6
    
////
#include ＜System.JSON.Converters.hpp＞
#include ＜System.JSON.Serializers.hpp＞
#include ＜System.Generics.Collections.hpp＞
#include ＜System.JSON.Writers.hpp＞
#include ＜memory＞

////
template ＜typename T1, typename T2＞
struct jCollections
{
    UnicodeString _property_name{L""};
    std::unique_ptr＜TStringWriter＞ _string_write{std::make_unique＜TStringWriter＞()};
    std::unique_ptr＜TJsonSerializer＞ _j_serializer{std::make_unique＜TJsonSerializer＞()};
    std::unique_ptr＜TJsonTextWriter＞ _json_writer{std::make_unique＜TJsonTextWriter＞(_string_write.get())};
    jCollections(UnicodeString lname)
    {
        ///Constructor.
        ///Determine the property name.
        _property_name = lname;
    }
    String listtoj(T1 l_list)
    {
        ///Start of object and setting property name.
        _json_writer-＞WriteStartObject();
        _json_writer-＞WritePropertyName(_property_name);
        ///TJsonListConverter__1 or TJsonDictionaryConverterStrStr.
        std::unique_ptr＜T2 ＞ l_json_conv{std::make_unique＜T2 ＞()};
 
        ///Here convert the value of the input list.
        l_json_conv-＞WriteJson(_json_writer.get(), TValue::_op_Implicit(l_list), _j_serializer.get());
        _json_writer-＞WriteEndObject();
        ///returns a string.
        return _string_write-＞ToString();
    }
 
};
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TList__1＜String＞* l_list= new TList__1＜String＞();
    try
    {
        jCollections＜TList__1＜String＞*, TJsonListConverter__1＜String＞ ＞ _jCollections{L"language_List"};
        l_list-＞Add("Python");
        l_list-＞Add("Delphi");
        l_list-＞Add("C++");
        l_list-＞Add("JAVA");
        l_list-＞Add("ひまわり");
        Memo1-＞Lines-＞Append(_jCollections.listtoj(l_list) );
    }
    __finally
    {
        delete l_list;
    }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TDictionaryStrStr* l_dic = new TDictionaryStrStr();
    try
    {
        jCollections＜TDictionaryStrStr*, TJsonDictionaryConverterStrStr ＞ _jCollections{L"2017_MotoGP_standings"};
        l_dic-＞Add("Maverick Vinales", "Movistar Yamaha");
        l_dic-＞Add("Andrea Dovizioso", "Ducati");
        l_dic-＞Add("Valentino Rossi", "Movistar Yamaha");
        l_dic-＞Add("Marc Marquez", "Repsol Honda Team");
        l_dic-＞Add("Dani Pedrosa", "Repsol Honda Team");
        Memo1-＞Lines-＞Append(_jCollections.listtoj(l_dic));
    }
    __finally
    {
        delete l_dic;
    }
 
 
}

  TUser = class
  public
    FAge: Integer;
    FLastName: string;
    FFirstName: string;

  end;

procedure TForm3.Button14Click(Sender: TObject);
var
  user: TUser;
  userList: TArray<TUser>;
begin
  user := TUser.Create;
  user.FAge := 1;
  user.FFirstName := 'delphi';
  user.FLastName := 'berlin';

  SetLength(userList, 2);

  userList[0] := user;

  user := TUser.Create;
  user.FFirstName := 'delphi';
  user.FAge := 2;
  user.FLastName := 'tokyo';

  userList[1] := (user);
  self.Memo1.Text := TJsonSerializer.Create.Serialize(userList);

end;

procedure TForm3.Button15Click(Sender: TObject);
var
  userList: TArray<TUser>;
  user: TUser;
  i: TArray<Integer>;
begin
  userList := TJsonSerializer.Create.Deserialize < TArray < TUser >> (Memo1.Text);

  Memo2.Clear;
  for user in userList do
  begin
    Memo2.Lines.Add(user.FAge.ToString);
    Memo2.Lines.Add(user.FFirstName);
    Memo2.Lines.Add(user.FLastName);
  end;

end;