Delphi中的Json使用是一種簡單而又方便的方法，可以快速的序列化和反序列化Json數據，這在網絡請求和數據傳輸中非常常用。下面我們來詳細了解一下Delphi中Json的使用方法。

var
json: TJSONObject;
begin
//創建一個json對象
json := TJSONObject.Create;
try
//添加key-value數據對
json.AddPair(TJSONPair.Create('name', 'Tom'));
json.AddPair(TJSONPair.Create('age', '18'));
//序列化Json字符串
Memo1.Lines.Add(json.ToString);
finally
json.Free;
end;
end;

以上是一個簡單的Json序列化示例，我們通過AddPair方法添加key-value數據對，再通過ToString方法序列化Json字符串。接下來我們看一個反序列化的示例。

var
json: TJSONObject;
begin
//反序列化Json字符串
json := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject;
try
//獲取對應key的value值
ShowMessage(json.GetValue('name').Value);
ShowMessage(json.GetValue('age').Value);
finally
json.Free;
end;
end;

通過ParseJSONValue方法反序列化Json字符串，將其轉換成Json對象后就可以通過GetValue方法獲取對應key的value值了。需要注意的是，反序列化后的Json對象可以是TJSONObject類型也可以是TJSONArray類型，取決于反序列化的Json字符串中的相應的數據類型。