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":"aaa@gmail.com"
}
},
{
"b":{
"username":"bbb",
"email":"bbb@gmail.com"
}
}
] |
[
{
"a":{
"username":"aaa",
"email":"aaa@gmail.com"
}
},
{
"b":{
"username":"bbb",
"email":"bbb@gmail.com"
}
}
]
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. |
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!
-
Giovani Da Cruz
-
532 views
- 0 comentários
- 27 de agosto de 2023
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo