F�rum Como acessar um local especifico em um Array Json #473238

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

Curtir t�pico

+ 0

Responder

Posts

18/03/2014

Marco Salles

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

Responder

Gostei + 0

19/03/2014

Yuri Rossi

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

Responder

Gostei + 0