Delphi是一個(gè)流行的編程語(yǔ)言，廣泛用于Windows應(yīng)用程序和Web應(yīng)用程序的開(kāi)發(fā)。JSON是現(xiàn)代Web應(yīng)用程序中廣泛使用的一種數(shù)據(jù)格式。在Delphi中，我們可以使用各種庫(kù)來(lái)解析JSON。

var
JsonString: string;
Json: TJSONObject;
JsonValue: TJSONValue;
begin
JsonString := '{"name": "John", "age": 30}';
Json := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
try
JsonValue := Json.GetValue('name');
ShowMessage(JsonValue.Value);
finally
Json.Free;
end;
end;

上面的代碼演示了在Delphi中如何使用TJSONObject類解析JSON。我們首先將JSON字符串分配給一個(gè)字符串變量，然后使用TJSONObject.ParseJSONValue方法將其解析為一個(gè)TJSONObject對(duì)象。然后我們可以使用GetValue方法獲取JSON鍵的值并在消息框中顯示它。

我們還可以使用其他庫(kù)如SuperObject和XSuperObject解析JSON。SuperObject是一個(gè)非常受歡迎的Delphi庫(kù)，可以輕松解析JSON數(shù)據(jù)。

var
JsonString: string;
Json: ISuperObject;
Name: string;
Age: Integer;
begin
JsonString := '{"name": "John", "age": 30}';
Json := SO(JsonString);
Name := Json.S['name'];
Age := Json.I['age'];
ShowMessageFmt('Name: %s, Age: %d', [Name, Age]);
end;

在上面的代碼示例中，我們使用了SuperObject庫(kù)來(lái)解析JSON。我們首先將JSON字符串傳遞給SO函數(shù)，它返回一個(gè)ISuperObject對(duì)象。然后我們可以使用S和I屬性獲取JSON鍵的值。

綜上所述，Delphi提供了多個(gè)庫(kù)來(lái)解析JSON，其中包括TJSONObject和SuperObject。您可以根據(jù)自己的需要選擇適合您項(xiàng)目的庫(kù)。