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;
実行結果
{"listHelper":[2],"items":[[20,"Alice"],[30,"Bob"]]}