delphi json 数组

在 Delphi 中使用 JSON 数组，可以通过 TJSONArray 和 TJSONValueList 类来实现。

1. 创建一个 TJSONArray 对象

var
  jsonArray: TJSONArray;
begin
  jsonArray := TJSONArray.Create;
  try
    // 添加元素
    jsonArray.Add('item1');
    jsonArray.Add('item2');
    jsonArray.Add('item3');
    // 输出 JSON 字符串
    ShowMessage(jsonArray.ToString);
  finally
    jsonArray.Free;
  end;
end;

2. 创建一个 TJSONValueList 对象

var
  jsonList: TJSONValueList;
  jsonValue: TJSONValue;
begin
  jsonList := TJSONValueList.Create;
  try
    // 添加元素
    jsonValue := TJSONString.Create('item1');
    jsonList.Add(jsonValue);
    jsonValue := TJSONString.Create('item2');
    jsonList.Add(jsonValue);
    jsonValue := TJSONString.Create('item3');
    jsonList.Add(jsonValue);
    // 输出 JSON 字符串
    ShowMessage(jsonList.ToString);
  finally
    jsonList.Free;
  end;
end;

以上两种方式都可以创建一个 JSON 数组，可以通过 Add 方法或 AddItem 方法向数组中添加元素，最终可以通过 ToString 方法将 JSON 数组转换为字符串。