Json unbekanntes feld abfangen

[venice2]

Zitat von mytbo:

Wenn du es mit mORMot machen willst, dann hier ein kleines Beispiel. Hilfe zum Thema DocVariants findest du hier.
Eine ausführliche Hilfe zu mORMot findest du hier: Hilfe. Weitere Informationen findest du hier: Download, Forum

Delphi-Quellcode:

var
  iRun, nRun: Integer;
  doc: TDocVariantData;
  docChannels: PDocVariantData;
  docPrograms: PDocVariantData;
begin
  doc.InitJSONFromFile('EPG_data.json', JSON_OPTIONS_FAST_EXTENDED);
  if not doc.B['success'] then Exit; //=>

  for iRun := 0 to doc.A['channels'].Count - 1 do
  begin
    docChannels := doc.A['channels']._[iRun];
    ShowMessage(docChannels.S['cid']);

    for nRun := 0 to docChannels.A['programs'].Count - 1 do
    begin
      docPrograms := docChannels.A['programs']._[nRun];
      ShowMessage(docPrograms.S['i_url']);
      ShowMessage(docPrograms.I['e'].ToString);
      ShowMessage(docPrograms.A['g'].ToCSV);
    end;
  end;

Bis bald...
Thomas

Und damit funktioniert es?
Wie ich schon sagte mit meiner nicht.

EDIT:
Denke nicht das ich das mache alleine die SynCommons.pas ist 3x mal so groß wie meine EXE selbst.
Wenn es mit meiner Json nicht geht dann lasse ich es muss nicht unbedingt EPG Daten haben.