如何在 Delphi 中遍历 JSON 键

【问题标题】：How to iterate through JSON keys in Delphi如何在 Delphi 中遍历 JSON 键
【发布时间】：2019-11-04 19:38:27
【问题描述】：

我有一个带有许多未知键的通用 JSON {'OISADLKMKLS': 123, 'ASDMOA':54, 'aosdmaosdm':65} 我想迭代所有这些对，但我还需要发现键名。网上很多例子并没有说明如何挽救密钥，只说明值。

我找到了这个，并不能解决所有问题。

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

【问题讨论】：

标签： json delphi

【解决方案1】：

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

【讨论】：

谢谢。实际上 KeyName 是 System.Json.TJsonPair.JsonString.Value 而 Value 是 System.Json.TJsonPair.JsonValue.Value 来自 embarcadero 的一个非常大的困惑 :(