2018-09-28 delphixe10 json

unit Unit3;

interface

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

type
TForm3 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var Root:TJSONObject;
i:integer;
jsonstr:string;
begin

    jsonstr:='{"code":100,"state":"true","data":["hero","npc","pet"]}';
    Root:= TJSONObject.ParseJSONValue(Trim(jsonstr)) as TJSONObject;
     for i:=0 to Root.count-1 do
        begin
           memo1.lines.add(Root.Get(i).JsonString.toString + ' = ' + Root.Get(i).JsonValue.ToString);
        end;
    showmessage( root.GetValue('state').ToString);

end;

end.