Ler arquivo JSON

Delphi

24/08/2014

Estou começando no delphi e gostaria de uma ajuda de vocês.

Como faço pra pegar o valor do campo texto do elemento tamanho e do elemento tempo desse arquivo JSON. Pesquisando, vi que tem quer percorrer usando um for,
mas não consegui.
Agradeço quem puder me ajudar.

{
   "dest" : [ "SF, CE, BR", "VC, BC, US" ],
   "orig" : [ "VVr, BB, GG", "S, WS, BR" ],
   "linhas" : [
      {
         "elements" : [
            {
               "tamanho" : {
                  "texto" : "11",
                  "valor" : 1709329
               },
               "tempo" : {
                  "texto" : "4",
                  "valor" : 3
               },
               "sit" : "1"
            },
            {
               "tamanho" : {
                  "texto" : "13",
                  "valor" : 134
               },
               "tempo" : {
                  "texto" : "6",
                  "valor" : 22
               },
               "sit" : "1"
            }
         ]
      },
      {
         "elements" : [
            {
               "tamanho" : {
                  "texto" : "12",
                  "valor" : 14
               },
               "tempo" : {
                  "texto" : "3",
                  "valor" : 27
               },
               "sit" : "1"
            },
            {
               "tamano" : {
                  "texto" : "14",
                  "valor" : 146
               },
               "tempo" : {
                  "texto" : "2 ",
                  "valor" : 10
               },
               "sit" : "1"
            }
         ]
      }
   ],
   "sit" : "1"
}
James Franco

James Franco

Curtidas 0
POSTAR