Delphi ICS是一個開源的組件庫，提供了網絡編程中使用的各種協議的實現，包括HTTP、FTP、SMTP、POP3等，同時還提供了JSON數據的處理。

procedure TForm1.Button1Click(Sender: TObject);
var
JsonValue: TJSONValue;
JsonArray: TJSONArray;
begin
//創建JSON數組
JsonArray := TJSONArray.Create;
try
//往數組中添加數據
JsonArray.Add('apple');
JsonArray.Add('orange');
//創建JSON對象
JsonValue := TJSONObject.Create;
try
//往對象中添加屬性
(JsonValue as TJSONObject).AddPair('name', 'John');
(JsonValue as TJSONObject).AddPair('age', TJSONNumber.Create(30));
(JsonValue as TJSONObject).AddPair('fruits', JsonArray);
//將JSON對象轉換為字符串
Memo1.Lines.Add((JsonValue as TJSONObject).ToString);
finally
JsonValue.Free;
end;
finally
JsonArray.Free;
end;
end;

上述代碼演示了如何使用Delphi ICS的TJSONArray和TJSONObject處理JSON數據，其中TJSONArray代表JSON數組，TJSONObject代表JSON對象?？梢允褂肁dd方法往JSON數組中添加數據，使用AddPair方法往JSON對象中添加屬性。

值得一提的是，Delphi ICS還提供了TJSONParser和TJSONUnmarshal類，可以將JSON字符串解析成JSON值對象，以及將JSON值對象解析成指定類型的對象。

以上就是關于Delphi ICS JSON的簡要介紹，希望對Delphi開發者有所幫助。