TPHJson

Revisão de 15h34min de 18 de setembro de 2023 por Willian.avilla (discussão | contribs)
(dif) ← Edição anterior | Revisão atual (dif) | Versão posterior → (dif)

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

 var 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;