オブジェクトをJSON文字列やTJSONObjectに変換する

TJson.ObjectToJsonStringを使うとオブジェクトをJSON文字列に
TJson.ObjectToJsonObjectを使うとオブジェクトをTJSONObjectに
変換できます。

次のサンプルプログラムでは、レコードのリストをJSON文字列に変換します。

type
  TPerson = record
  private
    FAge: Integer;
    FName: string;
  public
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

uses
  System.Generics.Collections,
  REST.Json;

procedure TForm1.Button1Click(Sender: TObject);
var
  Alice, Bob: TPerson;
  People: TList<TPerson>;
  S: string;
begin
  People := TList<TPerson>.Create;

  Alice.Name := 'Alice';
  Alice.Age := 20;
  People.Add(Alice);
  Bob.Name := 'Bob';
  Bob.Age := 30;
  People.Add(Bob);

  S := TJson.ObjectToJsonString(People);
  Memo1.Text := S;
end;

実行結果

json1

{"listHelper":[2],"items":[[20,"Alice"],[30,"Bob"]]}

DelphiのJSON関連の記事

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です