json中關於jo.[]中字串一致的問題

標籤：str   nbsp   ring   就會   cli   問題   procedure   form   send   

procedure TForm1.btn1Click(Sender: TObject);
var
jo:ISuperObject;
Temp:string;
temp1:Boolean;
begin
  jo:=SO(mmo1.Text);
  ShowMessage(jo.AsJSon(False,True));
  temp:=jo[‘name‘].AsString;
  ShowMessage(temp);
  temp:= jo[‘sex‘].AsString; //jo[]中額的字串大小寫要一致不一致會報錯比如Sex就會報錯
  ShowMessage(temp);

  temp:=jo[‘weight‘].AsString;
  ShowMessage(temp);
  temp:=jo[‘addresses‘].Asstring;
  ShowMessage(temp);
  ShowMessage(jo[‘tel‘].AsString);
  showmessage(jo[‘children‘].AsString);
end;

 

///memo.text

{
"name": "張三", /* 注釋 */
"age": 33,
"sex": true,
"weight": 123.456,
"tel": ["86-1111111", "86-2222222"],
"addresses":{"address":"A省B市", "pc":"100001"},
"children": [
{
"name": "張繼",
"age": "22",
"sex": true
},
{
"name": "張承",
"age": "11",
"sex": false
}
]
}

json中關於jo.[]中字串一致的問題