Trabalhando com JSON

Trabalhando com JSON

  novembro 22, 2016    Ana Paula Novello

---

Neste post vamos começar com o JSON
Primeiramente vamos colocar DBXJSON e json nas Uses

Utilizaremos

• 1 TMeno - mmReceptor
• 2 TButton - BtnCriandor, BtnObjeto

No evento de OnClique do TButton colocaremos o seguinte código

procedure TForm1.BtnCriandorClick(Sender: TObject);
var
     wNome: TJSONString;
     wIdade: TJSONNumber;
     wSalario: TJSONNumber;
     wSalada: TJSONTrue;
     wRefrigerante: TJSONFalse;
begin
     wNome := TJSONString.Create('Ana Paula Novello - String');
     wIdade := TJSONNumber.Create(15);
     wSalada := TJSONTrue.Create;
     wRefrigerante := TJSONFalse.Create;
     wSalario := TJSONNumber.Create(900.90);
     mmReceptor.Lines.Clear;
     mmReceptor.Lines.Add(wNome.Value);
     mmReceptor.Lines.Add(FloatToStr(wIdade.AsDouble));
     mmReceptor.Lines.Add(FloatToStr(wSalario.AsDouble));
     mmReceptor.Lines.Add(wSalada.ToString);
     mmReceptor.Lines.Add(wRefrigerante.ToString);
end;

No evento de OnClique do outro botão colocaremos o código

procedure TForm1.BtnObjetoClick(Sender: TObject);
var
     wJson: TJSONObject;
begin
     mmReceptor.Clear;
     wJson := TJSONObject.Create;
     wJson.AddPair('Nome', TJSONString.Create('Ana Paula Novello'));
     wJson.AddPair(TJSONPair.Create('Cidade', 'Bento Gonçalves'));
     wJson.AddPair(TJSONPair.Create('Bairro', 'Centro'));
     mmReceptor.Lines.Add(wJson.ToString);
end;

E esta pronto nosso pequeno exemplo

Exemplo: Download do exemplo