@TiGü, Uwe
Ich hab mir das hier zum Testen mal zusammengelaubt, nur um den Sendungsnamen zu lesen:
Delphi-Quellcode:
jsonObj := jsonobj.Values['channels'] as TJSONObject;
for jsonpair in jsonObj do begin
ZATEPG.Log('UPDEPG', Format('Channel: %s',[jsonpair.JsonString.Value]));
for item in (jsonpair.JsonValue as TJSONArray) do
begin
s := (item as TJSONObject).GetValue('t').Value; // <- FEHLER ???
ZATEPG.Log('UPDEPG', ' - ' + s);
end;
end;
Das kompiliert, funzt 1A und ist recht fix .... aber:
Delphi meckert rum:
-> Undeklarierter Bezeichner 'Value' in Zeile ....
Warum ?