Delphi JSONValue get value

Question

I have arrived up to here with my code:

JSONArray := TJSONObject.ParseJSONValue(Text) as TJSONArray;

for var JSONValue in JSONArray do
  begin
    ListBox1.Items.Add(JSONValue.Value);
  end;

Please note that Text := '[{"jahre":2},{"jahre":4},{"jahre":15}]' which is a valid JSON format. How can I get 2019 and 2018 items in the list?

With the above code I get white items in the list box.

Alberto Miola · Accepted Answer · 2019-01-13 22:44:37Z

11

Each JSONValue is a "piece" of your array and each piece is an object. You have to convert the type to TJSONObject and the you can get the value.

ListBox1.Items.Add((JSONValue as TJSONObject).GetValue('jahre').ToString);

More info can be found in the doc (if you're using 10.3 the JSON library has been improved)

answered Jan 13, 2019 at 22:44

Alberto Miola

4,7718 gold badges40 silver badges55 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Delphi JSONValue get value

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related