Como acessar um local especifico em um Array Json

Delphi

18/03/2014

Sou novo nesta área e estou começando a mexer com Json, procurei pelo fórum e SIM vi muitas perguntas parecidas, mas nenhuma possuía a resposta que eu procurava. Vamos a questão.
Tenho este seguinte resultado em Json.

{"result":[{"Result":1,"Locais":[{"DataHora":"18\/03\/2014 09:45:17","Lat":-41.36985,"Long":4.36985}]}]}

Eu consegui chegar até o "Locais" da seguinte maneira.

    url := TIdURI.URLEncode(''''''''''''''''http://201.26.209.56:5115/sadm/rest/TWebSite/GetMyLocation/''''''''''''''''+ login.Form2.Edit1.Text+''''''''''''''''/''''''''''''''''+login.Form2.Edit2.Text+''''''''''''''''/''''''''''''''''+edit1.Text);
        jo := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(IdHTTP1.Get(url)), 0) as TJSONObject;
       
       pair := jo.Get(''''''''''''''''result'''''''''''''''')  as TJSONPair;
       jarray := TJSONArray(pair.JsonValue);


       ende := jarray.Get(0) as TJSONObject;
       parse := ende.Get(''''''''''''''''Locais'''''''''''''''') as TJSONPair;


Com o código acima consigo este resultado.

Locais:[{"DataHora":"18\/03\/2014 09:45:17","Lat":-41.36985,"Long":4.36985}]}]}

Porém eu preciso das seguintes informações: "DataHora: 18/03/2014" e "Lat:-41.36985" e "Long:4.36985".


Sei que algo simples, porém não consigo visualizar como fazer isto. Se puderem me ajudar, ficarei extremamente grato, pois estou penando a dias para fazer isso. D:


Yuri Rossi

Yuri Rossi

Curtidas 0

Respostas

Marco Salles

Marco Salles

18/03/2014

Neste teu caso especifico

Porém eu preciso das seguintes informações: "DataHora: 18/03/2014" e "Lat:-41.36985" e "Long:4.36985".



var
Lendo : TJsonValue;;
begin

for I :=0  to Pred(JsonArray.Size) do
 begin
   Lendo:=JsonArray.Get(i);
   showmessage(Lendo.Value);
 end;
end;


Não penas mais....

[]sds

GOSTEI 0
Yuri Rossi

Yuri Rossi

18/03/2014

Obrigado, irei testar assim que chegar em casa e desculpe por criar dois, tentei deletar o outro, mas não consegui :|
GOSTEI 0
POSTAR