delphi11 输出数组

在 Delphi11 中，可以使用以下代码输出数组：

var
  arr: array[0..4] of Integer = (1, 2, 3, 4, 5);
  i: Integer;
begin
  for i := Low(arr) to High(arr) do
    WriteLn(arr[i]);
end;

这里定义了一个名为 `arr` 的数组，使用 `Low` 和 `High` 分别获取数组的下限和上限，然后使用 `for` 循环遍历数组中的每个元素，并使用 `WriteLn` 输出到控制台。

相关问题

delphi11 输出数组对象

Delphi 11 中输出数组对象可以使用以下代码：

var
  arr: array[0..4] of Integer = (1, 2, 3, 4, 5);
  i: Integer;

for i := Low(arr) to High(arr) do
  WriteLn(arr[i]);

以上代码可以输出数组 `arr` 中的所有元素。你也可以使用 `for-in` 循环来实现同样的效果：

var
  arr: array[0..4] of Integer = (1, 2, 3, 4, 5);
  i: Integer;

for i in arr do
  WriteLn(i);

这种方式更加简洁，但是需要注意的是，`for-in` 循环只能用于数组、集合、字符串等集合类型。

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 数组转换为字符串。