arrays - Delphi-如何从字符串数组创建JSON数组？

Question

我有以下array of strings：


001,002,005,009


我需要从中创建一个TJSONArray：


[“ 001”，“ 002”，“ 005”，“ 009”]

 JSONObj := TJSONObject.Create;
 JSONObj.AddPair(TJSONPair.Create('Events', (response_faults as TJSONArray)));

我试图创建对象并将字符串数组作为 TJSONArray传递，但是我得到了：


E2015运算符不适用于此操作数类型


如何从 TJSONArray生成 array of strings？

Answer 1

您需要先构造一个空的TJSONArray对象，然后构造一个Add()单个字符串值。例如：

var
  arr: array of string;
  JSONObj: TJSONObject;
  response_faults: TJSONArray;
  I: Integer;
begin
  arr := ... ; // '001', '002', '005', '009', ...
  JSONObj := TJSONObject.Create;
  try
    response_faults := TJSONArray.Create;
    try
      for I := Low(arr) to High(arr) do begin
        response_faults.Add(arr[I]);
      end;
      JSONObj.AddPair('Events', response_faults);
    except
      response_faults.Free;
      raise;
    end;
    // use JSONObj as needed...
  finally
    JSONObj.Free;
  end;
end;