Delphi使用TSuperArray实现以下json格式 ["2","3","4"]

以下是使用Delphi的TSuperArray实现给定json格式的例子：

var
  jt_arr: TSuperArray;
begin
  jt_arr := TSuperArray.Create(['2', '3', '4']);
  // 输出json格式的字符串
  ShowMessage(jt_arr.AsJson);
end;

相关问题

Delphi实现以下json格式 ["2","3","4"]

以下是使用Delphi实现给定JSON格式的示例代码：

uses
  System.JSON;

var
  jsonArray: TJSONArray;
begin
  jsonArray := TJSONArray.Create;
  jsonArray.Add('2');
  jsonArray.Add('3');
  jsonArray.Add('4');

  // 输出JSON字符串
  ShowMessage(jsonArray.ToString);

  // 释放内存
  jsonArray.Free;
end;

这段代码使用了Delphi的`TJSONArray`类来创建一个JSON数组，并向数组中添加了三个字符串元素。最后，使用`ToString`方法将JSON数组转换为字符串并输出。

delphi11+post+json格式参数

在 Delphi 11 中使用 POST 请求发送 JSON 格式参数可以按照以下步骤进行操作：

1. 首先，确保你已经引入了 REST 客户端库。在 Delphi 11 中，可以使用 TNetHTTPClient 组件来发送 HTTP 请求和接收响应。

2. 创建一个 TNetHTTPClient 组件实例，并设置需要的属性，例如请求的 URL、请求方法为 POST、Content-Type 为 "application/json" 等。

3. 创建一个 TJSONObject 对象，并使用其 AddPair 方法添加需要发送的参数。例如：

var
  Params: TJSONObject;
begin
  Params := TJSONObject.Create;
  try
    Params.AddPair('key1', 'value1');
    Params.AddPair('key2', 'value2');
    
    // 可以根据需要添加更多的参数
    
    // 使用 Params.ToString 方法将 JSON 对象转换为字符串
    // 并将其设置为请求的主体内容
    NetHTTPClient1.RequestBody := TStringStream.Create(Params.ToString, TEncoding.UTF8);
  finally
    Params.Free;
  end;
end;

4. 调用 TNetHTTPClient 的 Execute 方法发送请求，并获取响应对象。

var
  Response: IHTTPResponse;
begin
  Response := NetHTTPClient1.Execute;
  
  // 处理响应，例如获取响应的内容
  if Response.StatusCode = 200 then
  begin
    ShowMessage(Response.ContentAsString);
  end;
end;

这样就可以在 Delphi 11 中使用 POST 请求发送 JSON 格式参数了。请根据你的具体需求进行适当的调整和扩展。