Delphi7作為一個老牌的編程語言，目前仍然被很多程序員廣泛使用。其中，解包Json也是Delphi7的一個重要功能。本文將介紹如何在Delphi7中解包Json。

首先，需要使用Json解析庫。在Delphi7中，比較常用的有SuperObject和SynCommons。在這里，我們以SuperObject為例。

uses
SuperObject;
var
json: ISuperObject;
s: string;
begin
s := '{"name": "Tom", "age": 18}';
json := SO(s);
Caption := json.S['name']; //獲取"name"的值，即"Tom"
end;

代碼中的SO函數將Json字符串轉換成了ISuperObject接口類型的對象，通過該對象，可以很方便地獲取Json中的各種屬性值。

除了一般的屬性獲取外，還可以通過數組等方式獲取Json中復雜的嵌套結構。例如：

uses
SuperObject;
var
json: ISuperObject;
s: string;
begin
s := '{"students": [{"name": "Tom", "age": 18}, {"name": "Jerry", "age": 20}]}';
json := SO(s);
Caption := json.A['students'][1].S['name']; //獲取第二個學生的姓名，即"Jerry"
end;

在代碼中，json.A['students']獲取了一個數組對象，再通過[1]獲取第二個學生的對象，最后用.S['name']獲取姓名屬性。

以上就是Delphi7解包Json的簡單介紹，希望對大家有幫助。