Delphi是一種強大的編程語言，可以用于開發各種類型的應用程序。其中，JSON（JavaScript Object Notation）是一種常用的數據交換格式，也是Delphi的眾多庫和工具中的一個重要組成部分。在Delphi中，使用JSON可以輕松地將數據轉換為字符串，然后對其進行解析和處理，從而實現數據的有效交換和應用的高效開發。

var
jsonStr: string;
jsonObj: TJSONObject;
jsonArray: TJSONArray;
jsonValue: TJSONValue;
i: Integer;
begin
// 創建JSON字符串
jsonObj := TJSONObject.Create;
jsonObj.AddPair('name', '張三');
jsonObj.AddPair('age', TJSONNumber.Create(28));
jsonArray := TJSONArray.Create;
for i := 0 to 2 do
begin
jsonValue := TJSONObject.Create;
TJSONObject(jsonValue).AddPair('subject', '語文');
TJSONObject(jsonValue).AddPair('score', TJSONNumber.Create(90));
jsonArray.Add(jsonValue);
end;
jsonObj.AddPair('grades', jsonArray);
jsonStr := jsonObj.ToString;
// 解析JSON字符串
jsonObj := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(jsonStr), 0) as TJSONObject;
showMessage(jsonObj.GetValue('name').Value);
showmessage(jsonObj.GetValue('age').Value);
jsonArray := jsonObj.GetValue('grades') as TJSONArray;
for i := 0 to jsonArray.Count - 1 do
begin
jsonValue := jsonArray.Items[i];
showmessage(TJSONObject(jsonValue).GetValue('subject').Value);
showMessage(TJSONObject(jsonValue).GetValue('score').Value);
end;
end;

上述代碼演示了如何在Delphi中創建和解析JSON字符串。其中，TJSONObject和TJSONArray是JSON的兩個主要類，分別用于表示JSON對象和JSON數組。通過TJSONObject的AddPair方法，可以向JSON對象中添加各種鍵值對，例如字符串、整數、浮點數、布爾值等。而TJSONArray則可以用于將多個JSON對象組合成一個數組。

在解析JSON字符串時，可以使用TJSONObject的ParseJSONValue方法將字符串轉換為JSON對象。然后，可以通過GetValue方法獲取JSON對象中的特定鍵值對，或者通過Items屬性獲取JSON數組中的各個JSON對象。通過以上方法，我們可以輕松地將JSON數據讀取到Delphi程序中，然后進行進一步的處理和應用。