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
关键字词:
