Json parsen problem

[venice2]

Zitat von DeddyH:

Das ist mir ehrlich gesagt zu schwierig auf die Schnelle nachzuvollziehen. Vielleicht hilft aber dieses Beispiel weiter (ich selbst benutze nur System.JSON, das gab es aber unter Delphi 2010 noch nicht IIRC): https://gist.github.com/fabriciocolo...010787d86b5c65

Hmmm.. schade.
Mit dem Code kann ich leider nichts anfangen ist ja quasi das gleiche.


Edit:
Habe es mal so versucht funktioniert leider nicht.

Delphi-Quellcode:

procedure TEpgDataList.FillList(aZatJson: TZATJSON);
var
//  I: integer;
  channels: TZATJSON;
  programs: TZATJSON;
begin

  if assigned(aZatJson) then
  begin
    channels := aZatJson.JSONByNameOrIndex['channels'];
    if assigned(channels) and channels.IsList then // gibt mir den Count von 170 Sendern zurück
    begin
      programs := aZatJson.JSONByNameOrIndex['programs']; // hier kracht es 
      if programs.ListItems.Count > 0 then
        addEpgData(programs.ListItems[1]);
    end;
  end;
end;

[Daniel]

Und wenn Du nicht "aZatJson", sondern "channels" nach dem Element "programs" befragst? Immerhin ist "programs" ja auch ein direktes Unterelement davon.
programs := channels.JSONByNameOrIndex['programs']; .

[venice2]

Zitat von Daniel:

Und wenn Du nicht "aZatJson", sondern "channels" nach dem Element "programs" befragst? Immerhin ist "programs" ja auch ein direktes Unterelement davon.
programs := channels.JSONByNameOrIndex['programs']; .

Das ist es ja warum geht es nicht.
so kann ich es nicht abfragen aber auf diese weise.

lZatJson := aZatJson.JSONByNameOrIndex['channels']; // ist ja schon die initialisierung von channels und funktioniert.

Dein Vorschlag wäre dann, falls ich dich richtig verstehe.

programs := lZatJson.JSONByNameOrIndex['programs'];
Danke für den Beitrag.

würde ich channels nehmen dann müsste ich channels als TZATJSON definieren.
habe es versucht schlägt aber ebenso fehl.