DelphiXE 中 Json 代碼的運用非常方便。在這篇文章中，我將介紹 Json 在 DelphiXE 中的使用方法。

首先，我們需要用到 DelphiXE 中的 JsonUnit 單元。這個單元包含了 TJsonObject 和 TJsonArray 兩個類。我們可以用 TJsonObject 類來操作 JSON 對象，用 TJsonArray 類處理 JSON 數組。

下面是一個使用 TJsonObject 類創建 JSON 對象的例子：

var
jsonObject: TJsonObject;
begin
jsonObject := TJsonObject.Create;
jsonObject.AddPair('name', 'John');
jsonObject.AddPair('age', TJsonNumber.Create(30));
jsonObject.AddPair('isMarried', TJsonTrue.Create);
//...
end;

同樣地，下面是一個使用 TJsonArray 類創建 JSON 數組的例子：

var
jsonArray: TJsonArray;
begin
jsonArray := TJsonArray.Create;
jsonArray.Add('item1');
jsonArray.Add('item2');
jsonArray.Add('item3');
//...
end;

在 DelphiXE 中還有另一個非常方便的方法可以將 JSON 字符串轉換成 TJsonObject 對象。使用 DelphiXE 自帶的 Json 對象可以實現此功能。下面是一個使用 DelphiXE Json 對象將 JSON 字符串轉換成 TJsonObject 對象的例子：

var
jsonStr: string;
jsonObject: TJsonObject;
begin
jsonStr := '{"name":"John","age":30,"isMarried":true}';
jsonObject := TJsonObject.ParseJSONValue(jsonStr) as TJsonObject;
if Assigned(jsonObject) then begin
//...
jsonObject.Free;
end;
end;

我們還可以使用 TJSONAncestor 類型的靜態方法 CreateFrom 方法將 JSON 字符串轉換成 TJSONValue 對象。TJSONValue 對象是 TJsonNumber、TJsonString、TJsonArray 等的父類。因此，CreateFrom 方法返回的對象可以是任意一種 TJSONValue 對象。

var
jsonStr: string;
jsonValue: TJSONValue;
begin
jsonStr := '{"key":"value"}';
jsonValue := TJSONAncestor.CreateFrom(jsonStr);
if Assigned(jsonValue) then begin
//...
jsonValue.Free;
end;
end;

使用 DelphiXE 的 Json 單元，操作 JSON 數據變得非常簡單。我們可以通過創建和解析 JSON 對象和數組，以及將 JSON 字符串轉換成 TJSONValue 對象等一些簡單的操作，輕松地處理各種類型的 JSON 數據。