Estoy estudiando este codigo :
Código Delphi
[-]
var
JSON: TlkJSONobject;
UnObjetoJSON: TlkJSONobject;
UnArrayJSON,
OtroArrayJSON: TlkJSONlist;
n, i: Integer;
begin
JSON:=TlkJSONobject.Create;
try
JSON:=TlkJSON.ParseText(ContenidoJSON) as TlkJSONobject;
UnObjetoJSON:=JSON.Field['nombreObjetoJSON'] as TlkJSONobject;
UnArrayJSON:=JSON.Field['nombreArrayJSON'] as TlkJSONlist;
OtroArrayJSON:=JSON.Field['nombreOtroArrayJSON'] as TlkJSONlist;
if UnObjetoJSON.Field['nombreField'].Value = 'Pepito' then
begin
end;
for n:=0 to UnArrayJSON.Count - 1 do
if UnArrayJSON.Child[n].Field['nombreField'].Value = 'Pepito' then
begin
end;
for n:=0 to OtroArrayJSON.Count - 1 do
for i:=0 to OtroArrayJSON.Child[n].Count - 1 do
finally
JSON.Free;
end;
La pregunta es como puedo leer un json que tiene arrays sin nombre , en este caso lo tiene hecho :
Código Delphi
[-] for n:=0 to OtroArrayJSON.Count - 1 do
for i:=0 to OtroArrayJSON.Child[n].Count - 1 do
Pero si necesita nombres :
Código Delphi
[-]OtroArrayJSON:=JSON.Field['nombreOtroArrayJSON'] as TlkJSONlist;
Explicandome mejor , es un json que tiene varios arrays sin nombre y dentro de cada uno estan los datos ( que si tienen nombre) , yo necesito listar todos los arrays sin nombre para poder entrar a los valores importantes
Mi codigo :
Código Delphi
[-]
JS := TlkJSONobject.Create;
JS := TlkJSON.ParseText(code) as TlkJSONobject;
for i := 0 to JS.Count - 1 do
begin
if JS.FieldByIndex[i].SelfType <> jsNull then
memo1.Add(JS.child(i).Field['datapc'].Value);
end;
¿ Alguien me podria ayudar ?