lbidi,
Cita:
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
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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.