Delphi-如何從字符串數組創建TJSONArray？

Question

我有以下array of strings ：

001002005009

我需要從中創建一個TJSONArray ：

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

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

我試圖創建對象並將字符串數組作為 TJSONArray但是我得到了：

E2015運算符不適用於此操作數類型

如何從array of strings生成TJSONArray ？

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;