如何在Delphi中遍历JSON密钥

Question

我有一个通用的JSON，它带有许多未知的密钥{'OISADLKMKLS': 123, 'ASDMOA':54, 'aosdmaosdm':65}，我想遍历所有这些对，但是我还需要发现密钥名称。互联网上的许多示例都没有显示如何挽救密钥，而只是显示了价值。

我发现了这个，但并不能解决所有问题。

for var JsonPair in JsonObject do
  begin
    var element := JsonValue.ToString; //gives me "OISADLKMKLS":"123"
  end.

Answer 1

使用JsonPair.JsonString获取Json Pair的名称（密钥）。

System.JSON.TJSONPair.JsonString