Ich habe das jetzt nur mal schnell überflogen. So sollte es aber funktionieren. Wenn du heute Abend (Nacht) noch ein Problem damit hast, sage einfach bescheid. Ich schaue mir das dann gerne mal an.
Delphi-Quellcode:
var
iRun, 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];
ShowMessage(docChannels.S['display_alias']);
ShowMessage(docChannels.I['number'].ToString);
end;
end;
Bis bald...
Thomas