Delphi XE10.2中Json處理功能的加強(qiáng)，主要體現(xiàn)在以下幾個(gè)方面:

• 新增TJsonTextWriter、TJsonTextReader類(lèi)
• 新增TJSONObject.ParseJSONValue方法、TJSONObject.ParseFromFile方法、TJsonObject.ToString方法等
• 新增Json格式化輸出

下面我們來(lái)看一下使用Delphi XE10.2處理Json的示例代碼：

var
Json: TJsonObject;
S: string;
begin
Json := TJsonObject.Create;
try
Json.AddPair('Name', 'Tom');
Json.AddPair('Age', 18);
Json.AddPair('IsStudent', True);
S := Json.ToString; //轉(zhuǎn)為Json格式字符串
finally
Json.Free;
end;
end;

同時(shí)，Delphi XE10.2還提供了更方便快捷的Json處理方式，如下所示：

var
Json: TJsonObject;
S: string;
begin
S := '{"Name":"Tom","Age":18,"IsStudent":true}';
Json := TJsonObject.ParseJSONValue(S) as TJsonObject; //Json字符串轉(zhuǎn)為Json對(duì)象
try
ShowMessage(Json.Get('Name').JsonValue.Value); //獲取Json對(duì)象中的值
finally
Json.Free;
end;
end;

以上是Delphi XE10.2中Json處理功能的簡(jiǎn)單介紹和示例代碼，希望能幫助到大家。