delphi xe5 JSON-木庄网络博客

本文整理自网络，侵删。
 unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  GJSONString =
    '{' +
    '    "name": {'+
    '        "A JSON Object": {' +
    '          "id": "1"' +
    '        },' +
    '        "Another JSON Object": {' +
    '          "id": "2"' +
    '        }' +
    '    },' +
    '    "totalobjects": "2"' +
    '}';

procedure TForm1.Button1Click(Sender: TObject);
var
  LJSONObject: TJSONObject;
  Value: TJSONValue;
begin
  LJSONObject := nil;
  try
    LJSONObject := TJsonObject.Create;
    Value := TJSONValue.Create;
    { convert String to JSON }
    LJSONObject.Parse(BytesOf(GJSONString), 0);
    Value :=LJSONObject.GetValue('name');
    ShowMessage(Value.ToString);
  finally
    LJSONObject.Free;
  end;
end;

end.
http://docwiki.embarcadero.com/RADStudio/XE5/en/JSON
delphi xe5 JSON

相关推荐

评论
