Delphi xe使用TJSONObject解析JSON数据

在Delphi 10 Seattle中重写 “ 使用TJSONObject分析JSON数据 ”。

由于不推荐使用某些方法，因此已对其进行了更改。

 

要使用TJSONObject，请添加“ System.JSON”。

 

uses System.JSON;

使用TJSONObject.ParseJSONValue读取JSON数据。

 

const

  Data: string = '{"name": "John Smith", "age": 33}';

var

  JSONValue: TJSONValue;

 

JSONValue := TJSONObject.ParseJSONValue(Data);

将JSONValue转换为TJSONObject类型。

 

var

  JSONObject: TJSONObject;

 

JSONObject := JSONValue as TJSONObject;

使用Count属性获取存储在JSON对象中的对数。

 

var

  Size: Integer;

 

Size := JSONObject.Count; // => 2

使用Pairs属性获取对。

指定参数的索引。

当不存在此类元素时，Pairs属性返回nil。

 

var

  JSONPair: TJSONPair;

 

JSONPair := JSONObject.Pairs[0];

使用TJSONPair对象的JsonString属性获取JSON对的名称部分，并使用JsonValue属性获取JSON对的值部分。

 

var

  S, V: string;

 

S := JSONPair.JsonString.Value; // => name

V := JSONPair.JSONValue.Value; // => John Smith

如果不是字符串类型，请根据数据类型进行转换。

 

将TJSONNumber用于数字类型。

 

var

  SC, VC: string;

  NC: TJSONNumber;

  Num: Integer;

  JSONPair := JSONObject.Pairs[1];

 

SC := JSONPair.JsonString.ClassName; // => TJSONString

VC := JSONPair.JsonValue.ClassName; // => TJSONNumber

V := JSONPair.JsonValue.Value; // => 33

 

NC := JSONPair.JsonValue as TJSONNumber;

Num := NC.AsInt; // => 33

对于数组类型，请使用TJSONArray。

 

const

  Data: string = '{"index": 1, "items": ["item 1", "item 2", "item 3"]}';

 

var

  JSONValue: TJSONValue;

  JSONObject: TJSONObject;

  JSONPair: TJSONPair;

  JSONArray: TJSONArray;

  S: string;

  Size, I: Integer;

 

begin

  JSONValue := TJSONObject.ParseJSONValue(Data);

  JSONObject := JSONValue as TJSONObject;

  JSONPair := JSONObject.Pairs[1];

  S := JSONPair.JsonString.Value; // => items

 

  JSONArray := JSONPair.JSONValue as TJSONArray;

  Size := JSONArray.Count; // => 3

 

  for I := 0 to Size - 1 do

  begin

    JSONValue := JSONArray.Items[I];

    S := JSONValue.Value;

  end;

 

  // for-inにも対応している

  for JSONValue in JSONArray do

  begin

    S := JSONValue.Value;

  end;

如果为布尔值，则为TJSONTrue或TJSONFalse。

 

const

  Data: string = '[true, false]';

 

var

  JSONValue: TJSONValue;

  JSONArray: TJSONArray;

  I: Integer;

 

begin

  JSONValue := TJSONObject.ParseJSONValue(Data);

  JSONArray := JSONValue as TJSONArray;

 

  for I := 0 to JSONArray.Count - 1 do

  begin

    JSONValue := JSONArray.Items[I];

    if JsonValue is TJSONTrue then

      // True

      WriteLn('True');

 

    if JsonValue is TJSONFalse then

      // False

      WriteLn('False');

  end;

来源：oschina

链接：https://my.oschina.net/u/1777508/blog/4299482