Delphi json array without bracket

Question

{
      "code": 0,
      "data": {
        "KAVAUSDT": {
          "name": "KAVAUSDT",
          "min_amount": "0.5",
          "maker_fee_rate": "0.003",
          "taker_fee_rate": "0.003",
          "pricing_name": "USDT",
          "pricing_decimal": 4,
          "trading_name": "KAVA",
          "trading_decimal": 8
        },
        "CFXUSDT": {
          "name": "CFXUSDT",
          "min_amount": "5",
          "maker_fee_rate": "0.003",
          "taker_fee_rate": "0.003",
          "pricing_name": "USDT",
          "pricing_decimal": 6,
          "trading_name": "CFX",
          "trading_decimal": 8
        },
        ... continue 
      }
    }

If there were [ and ] symbols, I could solve it quickly with TJsonArray:

...

JsonArray := JsonValue.GetValue<TJSONArray>('data');

for ArrayElement in JsonArray do
begin
  tempName           := ArrayElement.GetValue<String>('name');
  tempPricingName    := ArrayElement.GetValue<String>('pricing_name');   
  ...
end;

There are no [and ] symbols in this Json type.

Without the [ and ] symbols, I cannot access the data, as it is using a for loop.

Is there a simple solution?

That's not an array, it's an object

David Heffernan
– David Heffernan

2021-10-16 03:48:34 +00:00
Commented Oct 16, 2021 at 3:48 — David Heffernan
– David Heffernan, Commented Oct 16, 2021 at 3:48

Remy Lebeau · Accepted Answer · 2021-10-18 15:50:01Z

7

There is no array in the JSON document you have shown. "KAVAUSDT", "CFXUSDT", etc are not array elements, they are simply named object fields of the "data" object. If you need to loop through the child fields of the "data" object, you can use TJSONObject (not TJSONArray!) for that, eg:

...

JsonObj := JsonValue.GetValue<TJSONObject>('data');

for Field in JsonObj do
begin
  FieldObj           := Field.JsonValue as TJSONObject;
  tempName           := FieldObj.GetValue<String>('name');
  tempPricingName    := FieldObj.GetValue<String>('pricing_name');   
  ...
end;

edited Oct 18, 2021 at 15:50

answered Oct 15, 2021 at 22:39

Remy Lebeau

610k36 gold badges516 silver badges875 bronze badges

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

2 Comments

Abdullah Yılmaz Over a year ago

{ "code": 0, "data": { "PGN": { "available": "17106.09093508", "frozen": "0" }, "USDT": { "available": "164.43456092", "frozen": "0" } , ... , ... , ... , ... }, "message": "Succeeded" } How Can i read Header key like "PGN" , "USDT" , "???" ....

Remy Lebeau Over a year ago

@AbdullahYılmaz the exact same way I showed in my answer. Field.JsonString is the name (PGN, USDT, etc) and Field.JsonValue is the TJSONObject where available, frozen, etc can be accessed from.

Collectives™ on Stack Overflow

Delphi json array without bracket

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related