pascal-从JSON到类：Delphi-JsonToDelphiClass 彻底解决对象映射痛点

icy 昨天 23 抢沙发

默认

摘要： 在现代软件开发中，与 REST API 交互几乎是每个 Delphi 程序员的日常。然而，最令人头疼的环节往往不是发送请求，而是如何将接收到的 JSON 字符串高效地转换为 Del...

在现代软件开发中，与 REST API 交互几乎是每个 Delphi 程序员的日常。然而，最令人头疼的环节往往不是发送请求，而是如何将接收到的 JSON 字符串高效地转换为 Delphi 的强类型对象。手动编写类定义、逐个字段映射不仅低效，而且在面对拥有数十个字段的复杂 JSON 结构时，极易出现拼写错误或类型不匹配。

Delphi-JsonToDelphiClass 正是为了解决这一痛点而生的工具。它不是一个运行时库，而是一个代码生成器，能够将 JSON 样本直接转换为完整的 Delphi 类定义。

核心功能与价值

该项目的核心逻辑是：输入 JSON \(\rightarrow\) 分析结构 \(\rightarrow\) 生成 Pascal 类代码。

自动化定义：无需手动编写 TObject 派生类，工具会自动根据 JSON 的键名创建属性。
类型推断：它能智能识别 JSON 中的数据类型（String, Number, Boolean, Array, Object），并将其映射为对应的 Delphi 类型（string, Double/Integer, Boolean, TArray/TList）。
嵌套处理：对于复杂的嵌套 JSON 对象，它会自动创建相应的子类，确保对象层级与 JSON 结构完全一致。
减少冗余：通过自动生成代码，开发者可以将精力集中在业务逻辑而非繁琐的 DTO（数据传输对象）定义上。

快速上手实例

假设你正在调用一个天气 API，返回的 JSON 数据如下：

text

{
  "city": "Beijing",
  "coordinates": {
    "lat": 39.9042,
    "lon": 116.4074
  },
  "weather_details": [
    {
      "type": "Sunny",
      "temperature": 25.5
    },
    {
      "type": "Cloudy",
      "temperature": 22.0
    }
  ],
  "is_active": true
}

传统做法（手动编写）

你需要手动定义三个类：一个主类，一个坐标类，一个天气详情类，并确保所有字段名与 JSON 键名完全一致。这在字段多的时候简直是噩梦。

使用 Delphi-JsonToDelphiClass

将上述 JSON 粘贴到工具中，它将为你瞬间生成如下代码：

text

type
  TCoordinates = class
  private
    FLat: Double;
    FLon: Double;
  public
    property Lat: Double read FLat write FLat;
    property Lon: Double read FLon write FLon;
  end;

  TWeatherDetail = class
  private
    FType: string;
    FTemperature: Double;
  public
    property Type: string read FType write FType;
    property Temperature: Double read FTemperature write FTemperature;
  end;

  TWeatherResponse = class
  private
    FCity: string;
    FCoordinates: TCoordinates;
    FWeatherDetails: TArray<TWeatherDetail>;
    FIsActive: Boolean;
  public
    property City: string read FCity write FCity;
    property Coordinates: TCoordinates read FCoordinates write FCoordinates;
    property WeatherDetails: TArray<TWeatherDetail> read FWeatherDetails write FWeatherDetails;
    property IsActive: Boolean read FIsActive write FIsActive;
  end;

如何在项目中使用生成的类？

生成类定义后，你还需要一个 JSON 解析库来将数据填充到这些类中。推荐配合 REST.Json（Delphi 自带）或 Neon、XSuperObj 等库使用。

配合 REST.Json 的实战代码：

text

uses 
  REST.Json;

procedure TForm1.ParseWeatherData(const JsonString: string);
var
  LResponse: TWeatherResponse;
begin
  // 将 JSON 字符串直接反序列化为生成的类对象
  LResponse := TJson.JsonToObject<TWeatherResponse>(JsonString);
  try
    ShowMessage('城市: ' + LResponse.City);
    ShowMessage('当前温度: ' + LResponse.WeatherDetails[0].Temperature.ToString);
  finally
    LResponse.Free;
  end;
end;

深度分析：为什么选择这个工具？

1. 强类型安全

相比于使用 TJSONObject 这种字典式的访问方式（例如 JsonObject.GetValue('city').Value），使用生成的类可以享受 IDE 的代码补全（Code Completion）和编译时类型检查。这大大降低了运行时出现 Access Violation 或 Type Mismatch 的概率。