关于泛型和JSON的问题

Question

泛型json

Answer 1

var
  json: TJSONObject;
  jarr: TJSONArray;
  list: TStringList;
  I: Integer;
begin
  list := TStringList.Create;
  jarr := TJSONArray.Create;
  json := TJSONObject.Create;
  try
    for I := 0 to 10 do
      list.Add(IntToStr(I)); //初始化List    for I := 0 to list.Count - 1 do
      jarr.Add(list.Strings[I]);    json.AddPair('data',jarr);     //将jarr 此数组保存至一个对象中    ShowMessage(json.ToString);
  finally
    list.Free;
    json.Free;
  end;