Como Fazer um parse de String para JsonArray em Delphi?

Fala galera do Show Delphi, tudo beleza?

Converter um texto ou uma string que contém um json é uma tarefa que pode ser muito necessária, ainda mais quando precisamos se comunicar com WebServices. Mas como fazer uma conversão em Delphi?

Parse string em JsonArray

Para converter uma string em um JsonArray em Delphi, você pode usar a unidade System.JSON, que é amplamente utilizada e oferece suporte a recursos de manipulação de JSON em Delphi.

Exemplo em Delphi

Vamos imaginar que um Memo contém o seguinte json:

[
  {
    "a":{
      "username":"aaa",
      "email":"[email protected]"
    }
  },
  {
    "b":{
      "username":"bbb",
      "email":"[email protected]"
    }
  }
]

O truque é utilizar MySjon := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray;

Veja o exemplo completo abaixo:

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TMomo1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Momo1: TMomo1;
 
implementation
 
{$R *.dfm}
 
uses
  System.Json;
 
procedure TMomo1.Button1Click(Sender: TObject);
var
  MySjon: TJSONArray;
begin
  MySjon := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray;
 
  ShowMessage(MySjon.ToJSON);
end;
 
end.

Beleza pessoal? Espero que seja útil.

Precisando em outras linguagens? Confira nossos posts no site Giovani Da Cruz.

Exemplo em C#

Como fazer um parse de string para JsonArray em C#?

Exemplo em C++

Como Fazer um parse de String para JsonArray em C++?

Deixe nos comentários suas dúvidas e sugestões.

Um abraço e até o próximo post. Valeu!