Delphi 是一種廣泛使用的編程語言。它不僅支持面向對象編程，而且還提供了處理 JSON 數據的一流工具。JSON（JavaScript Object Notation）是一種輕量級的數據格式，常用于數據交換和存儲。以下是一些有關 Delphi 處理 JSON 的示例：

// 示例 1: 解析 JSON 字符串
var
jsonStr: string;
jsonObj: TJSONObject;
value: TJSONValue;
begin
jsonStr := '{"name":"John", "age":30, "city":"New York"}';
jsonObj := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;
if Assigned(jsonObj) then
begin
value := jsonObj.GetValue('name');
ShowMessage(value.Value); // 輸出 "John"
value := jsonObj.GetValue('age');
ShowMessage(value.Value); // 輸出 "30"
value := jsonObj.GetValue('city');
ShowMessage(value.Value); // 輸出 "New York"
jsonObj.Free;
end;
end;
// 示例 2: 構建 JSON 字符串
var
jsonObj: TJSONObject;
arrObj: TJSONArray;
begin
jsonObj := TJSONObject.Create;
jsonObj.AddPair('name', 'Mary');
jsonObj.AddPair('age', 25);
arrObj := TJSONArray.Create;
arrObj.Add('New York');
arrObj.Add('Chicago');
jsonObj.AddPair('cities', arrObj);
ShowMessage(jsonObj.ToString); // 輸出 "{\"name\":\"Mary\",\"age\":25,\"cities\":[\"New York\",\"Chicago\"]}"
jsonObj.Free;
end;

以上示例展示了如何解析和構建 JSON 數據。使用 TJSONObject 類和 TJSONArray 類可以方便地處理 JSON 數據。這些類可以幫助您創建、修改和讀取 JSON 對象和數組。