在Delphi 10.3中将Json数组读入列表框

var
  jsonArray: TJSONArray;
  jsonValue: TJSONValue;
begin
  jsonArray := TJSONArray.Create;
  try
    jsonValue := TJSONObject.ParseJSONValue(jsonString);
    if jsonValue is TJSONArray then
      jsonArray := TJSONArray(jsonValue);
  finally
    jsonValue.Free;
  end;
end;

var
  i: Integer;
begin
  for i := 0 to jsonArray.Count - 1 do
  begin
    ListBox1.Items.Add(jsonArray.Items[i].Value);
  end;
end;