type
  TAddress = class
  public
    city: string;
  end;

  TPerson = class
  public
    name: string;
    age: Integer;
    address: TAddress;
  end;
//-----------------------------------------------------------------------
uses REST.Json;

// ========================转换代码
var
  LPerson: TPerson;
begin
  //  Delphi 对象<-------  JSON 字符串
  LPerson := TJson.JsonToObject<TPerson>('{"name":"李四","age":25,"address":{"city":"上海"}}');
    ShowMessage(LPerson.name); 
    LPerson.Free; // 务必释放
 
end;　




image


 可以用Delphi13中的JSON data bingding,生成OBject 类


要先打开一个Project


image


image


image


image


image


image


 会自动生成单位unit,注册类，直接引用即可


image