TPHJson

O objeto TPHJson pode ser utilizado para montar objetos Json ou desmontar por elementos para uso posterior.

Propriedades

Nome	Tipo	Descrição
Texto	String	Utilizado para informar o texto contido no Json.
JsonString	String	Propriedade para salvar ou pegar o Json informado.

Procedimentos

• Count(Count: Integer): Realiza a contagem das informações contida no Json;
• LerJson(Json: String): Armazena o Json informado no parâmetro;
• ToJson: Informa o Json que está sendo utilizado;
• Elemento(Index: Integer): Seleciona o elemento na posição informada;
• ElementoDoNome(Nome: String): Seleciona a informação contida no nome do elemento informado;
• Linha(Index: Integer): Seleciona a linha na posição informada;
• LoadFromFile(Arquivo: String): Insere o caminho do arquivo Json a ser utilizado;

Exemplo

 Json := TPHJson.Create; 
 Json := LerJson('[{"Codigo":"001","Nome":"Registro 1"},'+
                   ' {"Codigo":"002","Nome":"Registro 2","SubLista":[{"AAA":"NomeAAAA"}]}]'); 
 try
   //Informacao(Json.ToJson); 
   //for I := 0 to Json.Count-1 do
   begin
     Informacao(Json.Linha(Json.Count-1).            // {"Codigo":"002","Nome":"Registro 2","SubLista":[{"AAA":"NomeAAAA"}]}  
            Elemento(2).                             // "SubLista":[{"AAA":"NomeAAAA"}] 
              Linha(0).                              // {"AAA":"NomeAAAA"} 
                ElementoDoNome('AAA').ElementoNome); // NomeAAAA 
   end; 
 finally
   Json.Free;  
 end;