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执行cmd命令和bat文件

Delphi fmx中获取窗口比例

Delphi如何获取硬盘所有的分区容量

Delphi 如何比较两个二维数组是否相等

Delphi整理七（function and procedure）

Delphi tadoquery 中文使用说明

Delphi树的一些操作

Delphi10.3构造一个json数据的第三种方法，并格式化输出

Delphi 测试字符串读取类: tstringreader

Delphi unigui form控件跳转

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe5 JSON