Escrever JSON

11/05/2021

0

Bom dia!
Alguém saberia me dizer como monto um JSON assim:

{
"success": [
"8814",
"8826"
],
"errors": [

]
} exatamente assim.

Agradeço antecimadamente pelo auxílio.

Obrigado!
Cezar Lopes

Cezar Lopes

Responder

Post mais votado

13/05/2021

Veja um exemplo:

var
  ja, ja2: TJSONArray;
  jo: TJSONObject;
begin
  Memo1.Clear;

  ja := TJSONArray.Create;
  ja2 := TJSONArray.Create;
  jo := TJSONObject.Create;
  try
    ja.Add('8814');
    ja.Add('8826');
    jo.AddPair(TJSONPair.Create('success', ja));
    jo.AddPair(TJSONPair.Create('errors', ja2));

    Memo1.Lines.Add(jo.ToString);
  finally
    FreeAndNil(jo);
  end;
end;

Natanael Ferreira

Natanael Ferreira
Responder

Mais Posts

12/05/2021

Chromusmaster

Bom dia!
Alguém saberia me dizer como monto um JSON assim:

{
"success": [
"8814",
"8826"
],
"errors": [

]
} exatamente assim.

Agradeço antecimadamente pelo auxílio.

Obrigado!


Em qual linguagem?

Segue alguns auxilio que pode ser uteis:
https://www.w3schools.com/js/js_json_php.asp
https://stackoverflow.com/questions/16921652/how-to-write-a-json-file-in-c/16921677
https://docs.microsoft.com/pt-br/dotnet/standard/serialization/system-text-json-how-to
https://www.javatpoint.com/java-json-example
Responder

12/05/2021

Chromusmaster


Em qual linguagem?

Segue alguns auxilio que pode ser uteis:
https://www.w3schools.com/js/js_json_php.asp
https://stackoverflow.com/questions/16921652/how-to-write-a-json-file-in-c/16921677
https://docs.microsoft.com/pt-br/dotnet/standard/serialization/system-text-json-how-to
https://www.javatpoint.com/java-json-example


E por ultimo em Delphi:
http://docwiki.embarcadero.com/RADStudio/Sydney/en/JSON
Responder

13/05/2021

Cezar Lopes

Veja um exemplo:

var
  ja, ja2: TJSONArray;
  jo: TJSONObject;
begin
  Memo1.Clear;

  ja := TJSONArray.Create;
  ja2 := TJSONArray.Create;
  jo := TJSONObject.Create;
  try
    ja.Add('8814');
    ja.Add('8826');
    jo.AddPair(TJSONPair.Create('success', ja));
    jo.AddPair(TJSONPair.Create('errors', ja2));

    Memo1.Lines.Add(jo.ToString);
  finally
    FreeAndNil(jo);
  end;
end;
[/quote00]

Muito obrigado Natanael, resolveu meu problema! Valeu mesmo!
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar