TokyoでDictionaryを要素にもつJson形式のファイルの読み書きをしてみた。

前回、LIST構造を持つJSON形式のファイルを読み書きしたので、今回はDictionary構造を持つファイルを読み書きしてみた。
(プロジェクトは、https://bitbucket.org/OldTPFun/delphitest/src/master/JsonTest/Proj2/ に配置してあります。）

今回読み書きするのは以下のようなファイル。

{"TownName":"木組みの家と石畳の街",
    "Shops":{
        "ラビットハウス":
            {"ShopName":"ラビットハウス",
                "Clerks":[
                    {"Name":"ココア","Age":17},
                    {"Name":"チノ","Age":15},
                    {"Name":"リゼ","Age":17}
                ]      
            },
        "甘兎庵":
            {"ShopName":"甘兎庵",
                "Clerks":[
                    {"Name":"チヤ","Age":17}
                ]
            }
    }
}

先ずは書き込みから。

今回は、Keyが文字列で、ValueがTCoffeeShop型のTDictionaryをシリアライズ・デシリアライズすればよいので、前回にならって、TDictionary用のコンバータ

view plainprint?

1. TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);  

  TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);

を作成して、上記のJSON文字列にシリアライズするためのクラスを作成して、TDictionary型の変数にTCoffieShopDicConverter属性を設定

view plainprint?

1. [JsonSerialize(TJsonMemberSerialization.&Public)]  
2. TCofeeShopList = class  
3. private  
4.   FTownName: String;  
5.   FShops: TObjectDictionary<string, TCoffeeShop>;  
6.   procedure SetTownName(const Value: String);  
7.   procedure SetShops(const Value: TObjectDictionary<string, TCoffeeShop>);  
8.   public  
9.     property TownName : String read FTownName write SetTownName;  
10.     [JsonConverter(TCoffieShopDicConverter)]  
11.     property Shops : TObjectDictionary<string, TCoffeeShop> read FShops write SetShops;  
12.     constructor Create;  
13. end;  

  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TCofeeShopList = class
  private
    FTownName: String;
    FShops: TObjectDictionary<string, TCoffeeShop>;
    procedure SetTownName(const Value: String);
    procedure SetShops(const Value: TObjectDictionary<string, TCoffeeShop>);
    public
      property TownName : String read FTownName write SetTownName;
      [JsonConverter(TCoffieShopDicConverter)]
      property Shops : TObjectDictionary<string, TCoffeeShop> read FShops write SetShops;
      constructor Create;
  end;

で、シリアライズするためのコード

view plainprint?

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var  
3.   CoffeeShop1,CoffeeShop2 : TCoffeeShop;  
4.   serializer: TJsonSerializer;  
5.   CofeeShopList : TCofeeShopList;  
6.   s : string;  
7. begin  
8.   CofeeShopList := TCofeeShopList.Create;  
9.   CoffeeShop1 := TCoffeeShop.Create;  
10.   CoffeeShop2 := TCoffeeShop.Create;  
11.   try  
12.     CoffeeShop1.ShopName := 'ラビットハウス';  
13.     CoffeeShop1.Clerks.Add(TClerk.Create('ココア',17));  
14.     CoffeeShop1.Clerks.Add(TClerk.Create('チノ',15));  
15.     CoffeeShop1.Clerks.Add(TClerk.Create('リゼ',17));  
16.   
17.     CoffeeShop2.ShopName := '甘兎庵';  
18.     CoffeeShop2.Clerks.Add(TClerk.Create('チヤ',17));  
19.   
20.     CofeeShopList.TownName := '木組みの家と石畳の街';  
21.     CofeeShopList.Shops.Add(CoffeeShop1.ShopName,CoffeeShop1);  
22.     CofeeShopList.Shops.Add(CoffeeShop2.ShopName,CoffeeShop2);  
23.   
24.     serializer := TJsonSerializer.Create;  
25.     try  
26.   
27.       s := serializer.Serialize(CofeeShopList);  
28.       Memo1.Text := s;  
29.   
30.       TFile.WriteAllText('CoffeeShop.Json',s);  
31.   
32.     finally  
33.       serializer.Free;  
34.     end;  
35.   
36.   finally  
37.     CofeeShopList.Shops.Clear;  
38.     CofeeShopList.Free;  
39.   end;  
40. end;  

procedure TForm1.Button1Click(Sender: TObject);
var
  CoffeeShop1,CoffeeShop2 : TCoffeeShop;
  serializer: TJsonSerializer;
  CofeeShopList : TCofeeShopList;
  s : string;
begin
  CofeeShopList := TCofeeShopList.Create;
  CoffeeShop1 := TCoffeeShop.Create;
  CoffeeShop2 := TCoffeeShop.Create;
  try
    CoffeeShop1.ShopName := 'ラビットハウス';
    CoffeeShop1.Clerks.Add(TClerk.Create('ココア',17));
    CoffeeShop1.Clerks.Add(TClerk.Create('チノ',15));
    CoffeeShop1.Clerks.Add(TClerk.Create('リゼ',17));

    CoffeeShop2.ShopName := '甘兎庵';
    CoffeeShop2.Clerks.Add(TClerk.Create('チヤ',17));

    CofeeShopList.TownName := '木組みの家と石畳の街';
    CofeeShopList.Shops.Add(CoffeeShop1.ShopName,CoffeeShop1);
    CofeeShopList.Shops.Add(CoffeeShop2.ShopName,CoffeeShop2);

    serializer := TJsonSerializer.Create;
    try

      s := serializer.Serialize(CofeeShopList);
      Memo1.Text := s;

      TFile.WriteAllText('CoffeeShop.Json',s);

    finally
      serializer.Free;
    end;

  finally
    CofeeShopList.Shops.Clear;
    CofeeShopList.Free;
  end;
end;

を書いて実行すると、見事に成功と思いきや・・・・

例外クラスEAbstractError (メッセージ'抽象エラー')を送出しました。

と例外が発生。ありゃりゃ。

デバッグ実行した結果、PropertyToKeyの呼び出し時に例外が発生していることが分かったので、System.JSON.Converters.pasのTJsonDictionaryConverter<k,v>の定義を調べてみると、

view plainprint?

1. TJsonDictionaryConverter<k,v> = class(TJsonConverter)  
2.   protected  
3.     function CreateDictionary: TDictionary<k,v>; virtual;  
4.     function PropertyToKey(const APropertyName: string): K; virtual; abstract;  
5.     function KeyToProperty(const AKey: K): string; virtual; abstract;  
6.     function ReadKey(const AReader: TJsonReader; const ASerializer: TJsonSerializer): string;  
7.     function ReadValue(const AReader: TJsonReader; const ASerializer: TJsonSerializer): V; virtual;  
8.     procedure WriteValue(const AWriter: TJsonWriter; const AValue: V; const ASerializer: TJsonSerializer); virtual;  
9.   public  
10.     procedure WriteJson(const AWriter: TJsonWriter; const AValue: TValue; const ASerializer: TJsonSerializer); override;  
11.     function ReadJson(const AReader: TJsonReader; ATypeInf: PTypeInfo; const AExistingValue: TValue;  
12.       const ASerializer: TJsonSerializer): TValue; override;  
13.     function CanConvert(ATypeInf: PTypeInfo): Boolean; override;  
14.   end;  

TJsonDictionaryConverter<k,v> = class(TJsonConverter)
  protected
    function CreateDictionary: TDictionary<k,v>; virtual;
    function PropertyToKey(const APropertyName: string): K; virtual; abstract;
    function KeyToProperty(const AKey: K): string; virtual; abstract;
    function ReadKey(const AReader: TJsonReader; const ASerializer: TJsonSerializer): string;
    function ReadValue(const AReader: TJsonReader; const ASerializer: TJsonSerializer): V; virtual;
    procedure WriteValue(const AWriter: TJsonWriter; const AValue: V; const ASerializer: TJsonSerializer); virtual;
  public
    procedure WriteJson(const AWriter: TJsonWriter; const AValue: TValue; const ASerializer: TJsonSerializer); override;
    function ReadJson(const AReader: TJsonReader; ATypeInf: PTypeInfo; const AExistingValue: TValue;
      const ASerializer: TJsonSerializer): TValue; override;
    function CanConvert(ATypeInf: PTypeInfo): Boolean; override;
  end;

と、PropertyToKey,とKeyToPropertyにabstractがついているので、この2つは、継承先のコンバーターで実装しないといけなかったのね。

System.JSON.Converters.pasに、TJsonDictionaryConverterを継承した、キーが文字列のTJsonStringDictionaryConverter<V>の定義が あるので、中身をみてみると、

view plainprint?

1. TJsonStringDictionaryConverter<V> = class(TJsonDictionaryConverter<string, V>)  
2. protected  
3.   function PropertyToKey(const APropertyName: string): string; override;  
4.   function KeyToProperty(const AKey: string): string; override;  
5. end;  

  TJsonStringDictionaryConverter<V> = class(TJsonDictionaryConverter<string, V>)
  protected
    function PropertyToKey(const APropertyName: string): string; override;
    function KeyToProperty(const AKey: string): string; override;
  end;

とあって、実装が

view plainprint?

1. function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: string): string;  
2. begin  
3.   Result := AKey;  
4. end;  
5.   
6. function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): string;  
7. begin  
8.   Result := APropertyName;  
9. end;  

function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: string): string;
begin
  Result := AKey;
end;

function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): string;
begin
  Result := APropertyName;
end;

となっているので、Dictionaryのコンバーターを作成する時は、TJsonDictionaryConverterから、キーの型を決めた派生型を作成し、KeyToPropertyにはキーから文字列に変換、PropertyToKeyには文字列からキーの型のインスタンスへの変換を自前で実装すれば、良いわけですね。
例えば、キーが整数型のDictionaryのコンバータは

view plainprint?

1.   TJsonIntegerDictionaryConverter<V> = class(TJsonDictionaryConverter<Integer, V>)  
2.   protected  
3.     function PropertyToKey(const APropertyName: string): Integer; override;  
4.     function KeyToProperty(const AKey: Integer): string; override;  
5.   end;  
6.   
7. function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: Integer): string;  
8. begin  
9.   Result := AKey.ToString;  
10. end;  
11.   
12. function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): Integer;  
13. begin  
14.   Result := APropertyName.ToInteger;  
15. end;  

  TJsonIntegerDictionaryConverter<V> = class(TJsonDictionaryConverter<Integer, V>)
  protected
    function PropertyToKey(const APropertyName: string): Integer; override;
    function KeyToProperty(const AKey: Integer): string; override;
  end;

function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: Integer): string;
begin
  Result := AKey.ToString;
end;

function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): Integer;
begin
  Result := APropertyName.ToInteger;
end;

とすれば、良いわけだ。

今回は、定義済みの、TJsonStringDictionaryConverterを使用して先ほどの

view plainprint?

1. TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);  

  TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);

を

view plainprint?

1. TCoffieShopDicConverter = class(TJsonStringDictionaryConverter<TCoffeeShop>);  

  TCoffieShopDicConverter = class(TJsonStringDictionaryConverter<TCoffeeShop>);

に修正し実行すれば、目的のJSON形式の文字列のファイルが作成できます。

ファイルの読み込みは前回と同様、次のコードになります。(確認用に読み込んだものメモに列挙しております。)

view plainprint?

1. procedure TForm1.Button2Click(Sender: TObject);  
2. var  
3.   CoffeeShop : TCoffeeShop;  
4.   CofeeShopList : TCofeeShopList;  
5.   serializer: TJsonSerializer;  
6.   s : string;  
7.   Clerk : TClerk;  
8. begin  
9.   
10.   s := TFile.ReadAllText('CoffeeShop.Json',TEncoding.UTF8);  
11.   
12.   serializer := TJsonSerializer.Create;  
13.   try  
14.     CofeeShopList := serializer.Deserialize<tcofeeshoplist>(s);  
15.     try  
16.       Memo1.Clear;  
17.       Memo1.Lines.Add(CofeeShopList.TownName);  
18.       for CoffeeShop in CofeeShopList.Shops.Values do  
19.       begin  
20.         Memo1.Lines.Add(CoffeeShop.ShopName);  
21.         for Clerk in CoffeeShop.Clerks do  
22.           begin  
23.           Memo1.Lines.Add(Clerk.Name + '(' + Clerk.Age.ToString() + ')');  
24.         end;  
25.       end;  
26.   
27.     finally  
28.       CoffeeShop.Clerks.Clear();  
29.       CoffeeShop.Free;  
30.     end;  
31.   finally  
32.     serializer.Free  
33.   end;  

procedure TForm1.Button2Click(Sender: TObject);
var
  CoffeeShop : TCoffeeShop;
  CofeeShopList : TCofeeShopList;
  serializer: TJsonSerializer;
  s : string;
  Clerk : TClerk;
begin

  s := TFile.ReadAllText('CoffeeShop.Json',TEncoding.UTF8);

  serializer := TJsonSerializer.Create;
  try
    CofeeShopList := serializer.Deserialize<tcofeeshoplist>(s);
    try
      Memo1.Clear;
      Memo1.Lines.Add(CofeeShopList.TownName);
      for CoffeeShop in CofeeShopList.Shops.Values do
      begin
        Memo1.Lines.Add(CoffeeShop.ShopName);
        for Clerk in CoffeeShop.Clerks do
          begin
          Memo1.Lines.Add(Clerk.Name + '(' + Clerk.Age.ToString() + ')');
        end;
      end;

    finally
      CoffeeShop.Clerks.Clear();
      CoffeeShop.Free;
    end;
  finally
    serializer.Free
  end;

TokyoでJson形式のファイルの読み書きをして見た。

唐突ですが、Json.NET良いですよね。高度なこともできますが、Json形式の文字列のシリアル化/デシリアライズ化がだけで良いな簡単にできますしね。
Delphi(Tokyo)でJson形式のファイルを読み込む必要が出てきたので、Json.NETのような書き方ができなか調べていたところもう1年くらい前の記事になりますが、

@lynatan さんのTJsonSerializerの記事

TJsonSerializerの使い方。
TJsonSerializerの実用例

エンバカデロさんのブログ

TJsonSerializerでJSONに変換する[JAPAN]

DelphiでもTokyoになって、Json.NETのような書き方ができるようになっているとのことでしたので、試して見ました。

読み書きするのは、以下のような内容のファイル

{"ShopName":"ラビットハウス",

  "Clerks":[

    {"Name":"ココア","Age":17},

    {"Name":"チノ","Age":15},

    {"Name":"リゼ","Age":17}

  ]

}

上記の構造にマップできるクラスを作成します。
先ずは、従業員(Clerk)クラス。
パブリックメンバーをシリアライズ対象のするのでクラスに[JsonSerialize(TJsonMemberSerialization.&Public)]
属性を付加しています。
（余談ですが、予約語、指令と被るワードを使う場合、その前に"&"が必要です。）

view plainprint?

1. unit Unit1;  
2.   //パブリックメンバーをシリアライズ対象にする属性  
3.   [JsonSerialize(TJsonMemberSerialization.&Public)]  
4.   TClerk = class  
5.     private  
6.       FName: string;  
7.       FAge: integer;  
8.   
9.       procedure SetAge(const Value: integer);  
10.       procedure SetName(const Value: string);  
11.     public  
12.       property Name : string read FName write SetName;  
13.       property Age : integer read FAge write SetAge;  
14.       constructor Create; overload;  
15.       constructor Create(const vName : string; const vAge : integer); overload;  
16.   end;  

unit Unit1;
  //パブリックメンバーをシリアライズ対象にする属性
  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TClerk = class
    private
      FName: string;
      FAge: integer;

      procedure SetAge(const Value: integer);
      procedure SetName(const Value: string);
    public
      property Name : string read FName write SetName;
      property Age : integer read FAge write SetAge;
      constructor Create; overload;
      constructor Create(const vName : string; const vAge : integer); overload;
  end;

次に喫茶店(CoffeeShop)クラスの定義

view plainprint?

1. [JsonSerialize(TJsonMemberSerialization.&Public)]  
2. TCoffeeShop = class  
3.   private  
4.   FClerks: TList<TClerk>;  
5.   FShopName: string;  
6.   procedure SetClerks(const Value: TList<TClerk>);  
7.   procedure SetShopName(const Value: string);  
8.   public  
9.     property ShopName : string read FShopName write SetShopName;  
10.       
11.     //TClerkクラスのジェネリックリスト用のコンバーターを登録  
12.     [JsonConverter(TJsonClerkListConverter)]  
13.     property Clerks : TList<TClerk> read FClerks write SetClerks;  
14.   
15.     public constructor Create;  
16. end;  

  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TCoffeeShop = class
    private
    FClerks: TList<TClerk>;
    FShopName: string;
    procedure SetClerks(const Value: TList<TClerk>);
    procedure SetShopName(const Value: string);
    public
      property ShopName : string read FShopName write SetShopName;
      
      //TClerkクラスのジェネリックリスト用のコンバーターを登録
      [JsonConverter(TJsonClerkListConverter)]
      property Clerks : TList<TClerk> read FClerks write SetClerks;

      public constructor Create;
  end;

メンバーは、喫茶店名と、従業員のリスト(ジェネリックのリスト）です。
こちらも、パブリックメンバーをシリアル化の対象とします。
ジェネリックのリストは、そのままではシリアライズできないので、Json.Converterユニットに定義済みの TJsonListConverterからTClerk型用の派生クラス

view plainprint?

1. //TClerk型のリスト用のコンバーター  
2. TJsonClerkListConverter = class(TJsonListConverter<TClerk>);  

  //TClerk型のリスト用のコンバーター
  TJsonClerkListConverter = class(TJsonListConverter<TClerk>);

を作成し、TClerk型のジェネリックリスト型のメンバーClerks用のコンバーター属性を付加しています。

クラス定義の全体は、以下とおりです。

view plainprint?

1. unit Unit2;  
2.   
3. interface  
4. uses  
5.   //Json.SerializersとConverterを使用する。  
6.     System.JSON.Serializers  
7.   , System.JSON.Converters  
8.   //TList<t>を使用する  
9.   , System.Generics.Collections  
10.   ;  
11.   
12. type  
13.   
14.   //パブリックメンバーをシリアライズ対象にする属性  
15.   [JsonSerialize(TJsonMemberSerialization.&Public)]  
16.   TClerk = class  
17.     private  
18.       FName: string;  
19.       FAge: integer;  
20.   
21.       procedure SetAge(const Value: integer);  
22.       procedure SetName(const Value: string);  
23.     public  
24.       property Name : string read FName write SetName;  
25.       property Age : integer read FAge write SetAge;  
26.       constructor Create; overload;  
27.       constructor Create(const vName : string; const vAge : integer); overload;  
28.   end;  
29.   
30.   //TClerk型のリスト用のコンバーター  
31.   TJsonClerkListConverter = class(TJsonListConverter<TClerk>;);  
32.   
33.   [JsonSerialize(TJsonMemberSerialization.&Public)]  
34.   TCoffeeShop = class  
35.     private  
36.     FClerks: TList<TClerk>;  
37.     FShopName: string;  
38.     procedure SetClerks(const Value: TList<TClerk>);  
39.     procedure SetShopName(const Value: string);  
40.     public  
41.       property ShopName : string read FShopName write SetShopName;  
42.         
43.       //TClerkクラスのジェネリックリスト用のコンバーターを登録  
44.       [JsonConverter(TJsonClerkListConverter)]  
45.       property Clerks : TList<TClerk> read FClerks write SetClerks;  
46.   
47.       public constructor Create;  
48.   end;  
49. implementation  
50.   
51. { TClerk }  
52.   
53. constructor TClerk.Create(const vName: string; const vAge: integer);  
54. begin  
55.    FName := vName;  
56.    FAge := vAge;  
57. end;  
58.   
59. constructor TClerk.Create;  
60. begin  
61.   
62. end;  
63.   
64. procedure TClerk.SetAge(const Value: integer);  
65. begin  
66.   FAge := Value;  
67. end;  
68.   
69. procedure TClerk.SetName(const Value: string);  
70. begin  
71.   FName := Value;  
72. end;  
73.   
74. { TCoffeeShop }  
75.   
76. constructor TCoffeeShop.Create;  
77. begin  
78.   FClerks := TList<TClerk>.Create;  
79. end;  
80.   
81. procedure TCoffeeShop.SetClerks(const Value: TList<TClerk>);  
82. begin  
83.   FClerks := Value;  
84. end;  
85.   
86. procedure TCoffeeShop.SetShopName(const Value: string);  
87. begin  
88.   FShopName := Value;  
89. end;  
90.   
91. end.  

unit Unit2;

interface
uses
  //Json.SerializersとConverterを使用する。
    System.JSON.Serializers
  , System.JSON.Converters
  //TList<t>を使用する
  , System.Generics.Collections
  ;

type

  //パブリックメンバーをシリアライズ対象にする属性
  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TClerk = class
    private
      FName: string;
      FAge: integer;

      procedure SetAge(const Value: integer);
      procedure SetName(const Value: string);
    public
      property Name : string read FName write SetName;
      property Age : integer read FAge write SetAge;
      constructor Create; overload;
      constructor Create(const vName : string; const vAge : integer); overload;
  end;

  //TClerk型のリスト用のコンバーター
  TJsonClerkListConverter = class(TJsonListConverter<TClerk>;);

  [JsonSerialize(TJsonMemberSerialization.&Public)]
  TCoffeeShop = class
    private
    FClerks: TList<TClerk>;
    FShopName: string;
    procedure SetClerks(const Value: TList<TClerk>);
    procedure SetShopName(const Value: string);
    public
      property ShopName : string read FShopName write SetShopName;
      
      //TClerkクラスのジェネリックリスト用のコンバーターを登録
      [JsonConverter(TJsonClerkListConverter)]
      property Clerks : TList<TClerk> read FClerks write SetClerks;

      public constructor Create;
  end;
implementation

{ TClerk }

constructor TClerk.Create(const vName: string; const vAge: integer);
begin
   FName := vName;
   FAge := vAge;
end;

constructor TClerk.Create;
begin

end;

procedure TClerk.SetAge(const Value: integer);
begin
  FAge := Value;
end;

procedure TClerk.SetName(const Value: string);
begin
  FName := Value;
end;

{ TCoffeeShop }

constructor TCoffeeShop.Create;
begin
  FClerks := TList<TClerk>.Create;
end;

procedure TCoffeeShop.SetClerks(const Value: TList<TClerk>);
begin
  FClerks := Value;
end;

procedure TCoffeeShop.SetShopName(const Value: string);
begin
  FShopName := Value;
end;

end.

上記で定義したクラスに対で、冒頭で示した内容のJson形式の定義ファイルCoffeeShop.Jsonを読み込み、デシリアライズする処理は、以下のとおりとなります。

view plainprint?

1. procedure TForm1.Button2Click(Sender: TObject);  
2. var  
3.   CoffeeShop : TCoffeeShop;  
4.   serializer: TJsonSerializer;  
5.   s : string;  
6.   Clerk : TClerk;  
7. begin  
8.   
9.   s := TFile.ReadAllText('CoffeeShop.Json',TEncoding.UTF8);  
10.   
11.   serializer := TJsonSerializer.Create;  
12.   try  
13.     CoffeeShop := serializer.Deserialize<TCoffeeShop>(s);  
14.     try  
15.       Memo1.Clear;  
16.       Memo1.Lines.Add(CoffeeShop.ShopName);  
17.       for Clerk in CoffeeShop.Clerks do  
18.       begin  
19.         Memo1.Lines.Add(Clerk.Name + '(' + Clerk.Age.ToString() + ')');  
20.       end;  
21.     finally  
22.       CoffeeShop.Clerks.Clear();  
23.       CoffeeShop.Free;  
24.     end;  
25.   finally  
26.     serializer.Free  
27.   end;  

procedure TForm1.Button2Click(Sender: TObject);
var
  CoffeeShop : TCoffeeShop;
  serializer: TJsonSerializer;
  s : string;
  Clerk : TClerk;
begin

  s := TFile.ReadAllText('CoffeeShop.Json',TEncoding.UTF8);

  serializer := TJsonSerializer.Create;
  try
    CoffeeShop := serializer.Deserialize<TCoffeeShop>(s);
    try
      Memo1.Clear;
      Memo1.Lines.Add(CoffeeShop.ShopName);
      for Clerk in CoffeeShop.Clerks do
      begin
        Memo1.Lines.Add(Clerk.Name + '(' + Clerk.Age.ToString() + ')');
      end;
    finally
      CoffeeShop.Clerks.Clear();
      CoffeeShop.Free;
    end;
  finally
    serializer.Free
  end;

ファイルを読み込み、シリアライザーを生成し、読み込んだJson文字列をデシリアライズして、ショップ名と、店員の情報をメモに表示しています。 （余談ですが、クラス定義で属性を使用しないで、TJsonSerializerインスタンスのConverterリストにTJsonClerkListConverterのインスタンスを登録してもデシリアライズできます。)

冒頭で示した内容のJson形式の定義ファイルを作成する場合は、以下の処理でできます。

view plainprint?

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var  
3.   CoffeeShop : TCoffeeShop;  
4.   serializer: TJsonSerializer;  
5.   s : string;  
6.   
7.   
8. begin  
9.   CoffeeShop := TCoffeeShop.Create;  
10.   try  
11.     CoffeeShop.ShopName := 'ラビットハウス';  
12.     CoffeeShop.Clerks.Add(TClerk.Create('ココア',17));  
13.     CoffeeShop.Clerks.Add(TClerk.Create('チノ',15));  
14.     CoffeeShop.Clerks.Add(TClerk.Create('リゼ',17));  
15.   
16.     serializer := TJsonSerializer.Create;  
17.     try  
18.   
19.       s := serializer.Serialize(CoffeeShop);  
20.       Memo1.Text := s;  
21.   
22.       TFile.WriteAllText('CoffeeShop.Json',s);  
23.   
24.     finally  
25.       serializer.Free;  
26.     end;  
27.   
28.   finally  
29.     CoffeeShop.Clerks.Clear();  
30.     CoffeeShop.Free;  
31.   end;  
32. end;  

procedure TForm1.Button1Click(Sender: TObject);
var
  CoffeeShop : TCoffeeShop;
  serializer: TJsonSerializer;
  s : string;


begin
  CoffeeShop := TCoffeeShop.Create;
  try
    CoffeeShop.ShopName := 'ラビットハウス';
    CoffeeShop.Clerks.Add(TClerk.Create('ココア',17));
    CoffeeShop.Clerks.Add(TClerk.Create('チノ',15));
    CoffeeShop.Clerks.Add(TClerk.Create('リゼ',17));

    serializer := TJsonSerializer.Create;
    try

      s := serializer.Serialize(CoffeeShop);
      Memo1.Text := s;

      TFile.WriteAllText('CoffeeShop.Json',s);

    finally
      serializer.Free;
    end;

  finally
    CoffeeShop.Clerks.Clear();
    CoffeeShop.Free;
  end;
end;

TCoffeeShop型のインスタンスを生成し、メンバーを設定後、シリアライザーを生成しシリアライズ後、ファイルに保存しています。
(確認の為、画面上のメモにも表示しています。)


プロジェクト一式は、https://bitbucket.org/OldTPFun/delphitest/src/master/JsonTest/Proj1/
に配置しております。