在 Delphi 中生成包含多个项目的 JSON 数组并保存为文件

示例代码

uses
  System.JSON, System.IOUtils;

procedure GenerateMultiItemJSON;
var
  JSONArray: TJSONArray;
  JSONItem: TJSONObject;
  JSONString: string;
begin
  JSONArray := TJSONArray.Create;
  try
    // 第一个项目
    JSONItem := TJSONObject.Create;
    JSONItem.AddPair('instruction', '快速编码 YES_NO');
    JSONItem.AddPair('input', TJSONString.Create(''));  // 显式创建空字符串
    JSONItem.AddPair('output', '名称 是/否');
    JSONArray.AddElement(JSONItem);

    // 第二个项目
    JSONItem := TJSONObject.Create;
    JSONItem.AddPair('instruction', '快速编码 FY_ZZK_WAREHOUSE');
    JSONItem.AddPair('input', TJSONString.Create(''));
    JSONItem.AddPair('output', '名称 中转库线边仓库');
    JSONArray.AddElement(JSONItem);

    // 生成并保存
    JSONString := JSONArray.ToJSON;
    TFile.WriteAllText('multi_data.json', JSONString, TEncoding.UTF8);
  finally
    JSONArray.Free; // 自动释放所有子对象
  end;
end;