Delphi xe10對json的解析應用

Json語句

{"code":100,"state":"true","data":["hero","npc","pet"]}

引用單元

System.JSON

類型說明

    //申明變量
    Root:TJSONObject;
    //賦值
    Root:= TJSONObject.ParseJSONValue(Trim(JsonStr)) as TJSONObject;

獲取Json對象數量

Root.Count

遍歷對象名稱及數值

    for i:=0 to Root.count-1 do
    begin
       memo1.lines.add(Root.Get(i).JsonString.toString + ' = ' + Root.Get(i).JsonValue.ToString);
    end;

結果顯示

"code" = 100
"state" = "true"
"data" = {"id":10,"name":"test"}

獲取指定對象內數值

Root.GetValue('data').ToString

獲取數組對象

    申明json數組變量
    Arr:TJSONArray;
    Arr:=TJSONArray(Root.GetValue('data'));
    遍歷json數組
    for i:=0 to Arr.Size - 1 do
    begin
      memo1.lines.add(Arr.items[i].value);
    end;

注意事項

Json解析沒法判斷數據內是否存在指定對象名，因此在吃不許是否存在指定對象的時候仍是使用get遍歷的方式讀取數據比較穩妥。