Как перебирать JSON-ключи в Delphi

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.

System.JSON.TJSONPair.JsonString