Delphi XE10.2中Json處理功能的加強，主要體現在以下幾個方面:

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

下面我們來看一下使用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; //轉為Json格式字符串
finally
Json.Free;
end;
end;

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

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

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