Decodificar objeto json.

[[nlsgarcia]]

lbidi,

Empezado por lbidi

...Tengo el siguiente array en formato json y necesito parsearlo...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.JSON;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Read and Parse File JSON
procedure TForm1.Button1Click(Sender: TObject);
var
   SL, FieldList : TStringList;
   JS : TJSONObject;
   i : Integer;

begin

   SL := TStringList.Create;
   SL.LoadFromFile(ExtractFilePath(Application.ExeName) + 'FileTest.json');

   FieldList := TStringList.Create;

   JS := TJSONobject.Create;
   JS.Parse(BytesOf(SL.Text), 0);

   for i := 0 to JS.Count - 1 do
      FieldList.Add(JS.Pairs[i].JsonString.Value + ': ' + JS.Pairs[i].JsonValue.Value);

   ListBox1.Clear;
   for i := 0 to FieldList.Count - 1 do
      ListBox1.Items.Add(FieldList.Strings[i]);

   SL.Free;
   FieldList.Free;
   JS.Free;

end;

end.

El código anterior en Delphi XE7 sobre Windows 7 Professional x32, Lee y analiza la estructura de un archivo .json (Msg #1) por medio de la unidad System.JSON, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.