色婷婷狠狠18禁久久YY,CHINESE性内射高清国产,国产女人18毛片水真多1,国产AV在线观看

delphi xe10解析json

張吉惟2年前8瀏覽0評論

Delphi 是 Pascal 語言的一種,是一種快速的應用程序開發工具。Delphi XE10 是一款開發工具,它可以方便地解析 JSON 數據,下面我們來了解下具體的操作。

首先,為了使用 Delphi XE10 解析 JSON 數據,需要在程序中添加 following 目錄下的三個模塊:System.JSON, System.Net.HttpClient 以及 System.Net.URLClient.

uses
System.JSON, System.Net.HttpClient, System.Net.URLClient;

然后,可以使用 TJSONObject 和 TJSONArray 對象來操作 JSON 數據。

下面是 TJSONObject 的使用例子。

var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(jsonStr), 0) as TJSONObject;
try
if Assigned(jsonObject) then
begin
ShowMessage(jsonObject.GetValue('name').Value);
end;
finally
jsonObject.Free;
end;

上述代碼中,TEncoding.UTF8.GetBytes 函數用于將 jsonStr 轉換為 UTF8 編碼的字節數組,0 表示數組的起始索引。jsonObject.GetValue('name').Value 獲取到指定 key 的值。

下面是 TJSONArray 的使用例子。

var
jsonArray: TJSONArray;
i: Integer;
begin
jsonArray := TJSONArray.ParseJSONValue(TEncoding.UTF8.GetBytes(jsonStr), 0) as TJSONArray;
try
for i := 0 to jsonArray.Count - 1 do
begin
ShowMessage(jsonArray.Items[i].GetValue('name').Value);
end;
finally
jsonArray.Free;
end;

上述代碼中,jsonArray.Items[i].GetValue('name').Value 獲取到數組中第 i 個元素的 key 為 name 的值。

綜上所述,Delphi XE10 可以方便地解析 JSON 數據,通過 TJSONObject 和 TJSONArray 可以輕松地操作 JSON 數據的 key 和 value。