Json unbekanntes feld abfangen

[venice2]

Zitat von himitsu:

Ohne die meisten Debuginfos (Release) wird es kleiner.

Alternativ kannst du auch mit "externen Debuginfos" kompilieren.

Es war ein Witz
Er hat geschrieben 280 MB sollte wohl 280 KB sein.

Habe es mal versucht, es funktioniert auch nicht richtig oder ich mache was falsch.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iRun, i, nRun: Integer;
  doc: TDocVariantData;
  docChannelGroup: PDocVariantData;
  docChannels: PDocVariantData;
begin
  doc.InitJSONFromFile('Channels_data.json', JSON_OPTIONS_FAST_EXTENDED);
  if not doc.B['success'] then
    Exit; //=>

  for iRun := 0 to doc.A['channel_groups'].Count - 1 do
  begin
    docChannelGroup := doc.A['channel_groups']._[iRun];
    for nRun := 0 to docChannelGroup.A['channels'].Count - 1 do
    begin
      docChannels := docChannelGroup.A['channels']._[nRun];
      for i := 0 to docChannels.A['channels'].Count - 1 do
      begin
        setLength(gChannels, i + 1);

        gChannels[i].display_alias := docChannels.S['display_alias'];
        gChannels[i].sharing := docChannels.B['sharing'];
        gChannels[i].is_radio := docChannels.B['is_radio'];
        gChannels[i].title := docChannels.S['title'];
        gChannels[i].cid := docChannels.S['cid'];
        gChannels[i].number := docChannels.I['number'];
        gChannels[i].recording := docChannels.B['recording'];
      end;
    end;
  end;
end;

erzählt mir irgendwas von
docChannels.A['channels'].Count wäre 0. ist es aber definitiv nicht.

Ich habe 172 Sender.

Habe die Channels_data.json mal angehängt.

EDIT:
Ok. Das problem ist wohl eher das ich nach dem Eintrag 'display_alias' suchen muss. Dieser hat 172 Einträge.
Wie komme ich daran?

Scheint nicht schlecht zu sein das Teil. @mytbo Danke.
Wenn auch etwas sehr mächtig.